From: Thomas Schilling <nominolo@googlemail.com>
Date: Sun, 14 Sep 2008 16:03:37 +0000 (+0000)
Subject: Add aliases for bags of warnings and errors.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=46aff9457fd48cfae1258739ffd4a6d889d015f5;p=ghc-hetmet.git

Add aliases for bags of warnings and errors.
---

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)