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 (
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
......
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