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 ( ...@@ -9,6 +9,7 @@ module ErrUtils (
Severity(..), Severity(..),
ErrMsg, WarnMsg, throwErrMsg, handleErrMsg, ErrMsg, WarnMsg, throwErrMsg, handleErrMsg,
ErrorMessages, WarningMessages,
errMsgSpans, errMsgContext, errMsgShortDoc, errMsgExtraInfo, errMsgSpans, errMsgContext, errMsgShortDoc, errMsgExtraInfo,
Messages, errorsFound, emptyMessages, Messages, errorsFound, emptyMessages,
mkErrMsg, mkPlainErrMsg, mkLongErrMsg, mkWarnMsg, mkPlainWarnMsg, mkErrMsg, mkPlainErrMsg, mkLongErrMsg, mkWarnMsg, mkPlainWarnMsg,
...@@ -137,6 +138,9 @@ mkPlainWarnMsg locn msg = mkWarnMsg locn alwaysQualify msg ...@@ -137,6 +138,9 @@ mkPlainWarnMsg locn msg = mkWarnMsg locn alwaysQualify msg
type Messages = (Bag WarnMsg, Bag ErrMsg) type Messages = (Bag WarnMsg, Bag ErrMsg)
type WarningMessages = Bag WarnMsg
type ErrorMessages = Bag ErrMsg
emptyMessages :: Messages emptyMessages :: Messages
emptyMessages = (emptyBag, emptyBag) 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