Commit 850a5149 authored by Thomas Schilling's avatar Thomas Schilling
Browse files

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

parent 45b7ef25
...@@ -15,6 +15,7 @@ module ErrUtils ( ...@@ -15,6 +15,7 @@ module ErrUtils (
mkErrMsg, mkPlainErrMsg, mkLongErrMsg, mkWarnMsg, mkPlainWarnMsg, mkErrMsg, mkPlainErrMsg, mkLongErrMsg, mkWarnMsg, mkPlainWarnMsg,
printErrorsAndWarnings, printBagOfErrors, printBagOfWarnings, printErrorsAndWarnings, printBagOfErrors, printBagOfWarnings,
handleFlagWarnings, handleFlagWarnings,
warnIsErrorMsg,
ghcExit, ghcExit,
doIfSet, doIfSet_dyn, doIfSet, doIfSet_dyn,
...@@ -144,6 +145,9 @@ type ErrorMessages = Bag ErrMsg ...@@ -144,6 +145,9 @@ type ErrorMessages = Bag ErrMsg
emptyMessages :: Messages emptyMessages :: Messages
emptyMessages = (emptyBag, emptyBag) emptyMessages = (emptyBag, emptyBag)
warnIsErrorMsg :: ErrMsg
warnIsErrorMsg = mkPlainErrMsg noSrcSpan (text "\nFailing due to -Werror.\n")
errorsFound :: DynFlags -> Messages -> Bool errorsFound :: DynFlags -> Messages -> Bool
-- The dyn-flags are used to see if the user has specified -- The dyn-flags are used to see if the user has specified
-- -Werror, which says that warnings should be fatal -- -Werror, which says that warnings should be fatal
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment