... | @@ -9,6 +9,7 @@ type Messages = (WarningMessages, ErrorMessages) |
... | @@ -9,6 +9,7 @@ type Messages = (WarningMessages, ErrorMessages) |
|
type WarningMessages = Bag WarnMsg
|
|
type WarningMessages = Bag WarnMsg
|
|
type ErrorMessages = Bag ErrMsg
|
|
type ErrorMessages = Bag ErrMsg
|
|
|
|
|
|
|
|
type WarnMsg = ErrMsg
|
|
data ErrMsg = ErrMsg {
|
|
data ErrMsg = ErrMsg {
|
|
errMsgSpan :: SrcSpan,
|
|
errMsgSpan :: SrcSpan,
|
|
errMsgContext :: PrintUnqualified,
|
|
errMsgContext :: PrintUnqualified,
|
... | | ... | |