From 46aff9457fd48cfae1258739ffd4a6d889d015f5 Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Sun, 14 Sep 2008 16:03:37 +0000 Subject: [PATCH] Add aliases for bags of warnings and errors. --- compiler/main/ErrUtils.lhs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index a030a19..bc5908f 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -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) -- 1.7.10.4