From 850a5149aa0449276fe038568aa9ce555d3fc186 Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Sun, 14 Sep 2008 17:39:04 +0000 Subject: [PATCH] Give the "Failing due to -Werror" message a name. --- compiler/main/ErrUtils.lhs | 4 ++++ 1 file changed, 4 insertions(+) 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 -- 1.7.10.4