From: Thomas Schilling <nominolo@googlemail.com>
Date: Sun, 14 Sep 2008 17:39:04 +0000 (+0000)
Subject: Give the "Failing due to -Werror" message a name.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=850a5149aa0449276fe038568aa9ce555d3fc186

Give the "Failing due to -Werror" message a name.
---

diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs
index bc5908f..a0325bf 100644
--- a/compiler/main/ErrUtils.lhs
+++ b/compiler/main/ErrUtils.lhs
@@ -15,6 +15,7 @@ module ErrUtils (
 	mkErrMsg, mkPlainErrMsg, mkLongErrMsg, mkWarnMsg, mkPlainWarnMsg,
 	printErrorsAndWarnings, printBagOfErrors, printBagOfWarnings,
     handleFlagWarnings,
+	warnIsErrorMsg,
 
 	ghcExit,
 	doIfSet, doIfSet_dyn, 
@@ -144,6 +145,9 @@ type ErrorMessages   = Bag ErrMsg
 emptyMessages :: Messages
 emptyMessages = (emptyBag, emptyBag)
 
+warnIsErrorMsg :: ErrMsg
+warnIsErrorMsg = mkPlainErrMsg noSrcSpan (text "\nFailing due to -Werror.\n")
+
 errorsFound :: DynFlags -> Messages -> Bool
 -- The dyn-flags are used to see if the user has specified
 -- -Werror, which says that warnings should be fatal