Commit 46aff945 authored by Thomas Schilling's avatar Thomas Schilling
Browse files

Add aliases for bags of warnings and errors.

parent 792671a8
......@@ -9,6 +9,7 @@ module ErrUtils (
Severity(..),
ErrMsg, WarnMsg, throwErrMsg, handleErrMsg,
ErrorMessages, WarningMessages,
errMsgSpans, errMsgContext, errMsgShortDoc, errMsgExtraInfo,
Messages, errorsFound, emptyMessages,
mkErrMsg, mkPlainErrMsg, mkLongErrMsg, mkWarnMsg, mkPlainWarnMsg,
......@@ -137,6 +138,9 @@ mkPlainWarnMsg locn msg = mkWarnMsg locn alwaysQualify msg
type Messages = (Bag WarnMsg, Bag ErrMsg)
type WarningMessages = Bag WarnMsg
type ErrorMessages = Bag ErrMsg
emptyMessages :: Messages
emptyMessages = (emptyBag, emptyBag)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment