diff options
| author | Eric Crockett <ecrockett0@gmail.com> | 2019-04-07 15:21:59 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2019-04-07 15:21:59 -0400 |
| commit | 3a38ea4487173f0f8e3693a75d1c5c7d33f12f05 (patch) | |
| tree | 45cacfc3e1071d5b34820bc9562d7b024251fc56 /compiler/simplCore | |
| parent | 33b0a291898b6a35d822fde59864c5c94a53d039 (diff) | |
| download | haskell-3a38ea4487173f0f8e3693a75d1c5c7d33f12f05.tar.gz | |
Fix #16282.
Previously, -W(all-)missed-specs was created with 'NoReason',
so no information about the flag was printed along with the warning.
Now, -Wall-missed-specs is listed as the Reason if it was set,
otherwise -Wmissed-specs is listed as the reason.
Diffstat (limited to 'compiler/simplCore')
| -rw-r--r-- | compiler/simplCore/CoreMonad.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/simplCore/CoreMonad.hs b/compiler/simplCore/CoreMonad.hs index d99686aa20..013b1414ee 100644 --- a/compiler/simplCore/CoreMonad.hs +++ b/compiler/simplCore/CoreMonad.hs @@ -778,8 +778,8 @@ we aren't using annotations heavily. ************************************************************************ -} -msg :: Severity -> SDoc -> CoreM () -msg sev doc +msg :: Severity -> WarnReason -> SDoc -> CoreM () +msg sev reason doc = do { dflags <- getDynFlags ; loc <- getSrcSpanM ; unqual <- getPrintUnqualified @@ -791,7 +791,7 @@ msg sev doc err_sty = mkErrStyle dflags unqual user_sty = mkUserStyle dflags unqual AllTheWay dump_sty = mkDumpStyle dflags unqual - ; liftIO $ putLogMsg dflags NoReason sev loc sty doc } + ; liftIO $ putLogMsg dflags reason sev loc sty doc } -- | Output a String message to the screen putMsgS :: String -> CoreM () @@ -799,7 +799,7 @@ putMsgS = putMsg . text -- | Output a message to the screen putMsg :: SDoc -> CoreM () -putMsg = msg SevInfo +putMsg = msg SevInfo NoReason -- | Output an error to the screen. Does not cause the compiler to die. errorMsgS :: String -> CoreM () @@ -807,9 +807,9 @@ errorMsgS = errorMsg . text -- | Output an error to the screen. Does not cause the compiler to die. errorMsg :: SDoc -> CoreM () -errorMsg = msg SevError +errorMsg = msg SevError NoReason -warnMsg :: SDoc -> CoreM () +warnMsg :: WarnReason -> SDoc -> CoreM () warnMsg = msg SevWarning -- | Output a fatal error to the screen. Does not cause the compiler to die. @@ -818,7 +818,7 @@ fatalErrorMsgS = fatalErrorMsg . text -- | Output a fatal error to the screen. Does not cause the compiler to die. fatalErrorMsg :: SDoc -> CoreM () -fatalErrorMsg = msg SevFatal +fatalErrorMsg = msg SevFatal NoReason -- | Output a string debugging message at verbosity level of @-v@ or higher debugTraceMsgS :: String -> CoreM () @@ -826,7 +826,7 @@ debugTraceMsgS = debugTraceMsg . text -- | Outputs a debugging message at verbosity level of @-v@ or higher debugTraceMsg :: SDoc -> CoreM () -debugTraceMsg = msg SevDump +debugTraceMsg = msg SevDump NoReason -- | Show some labelled 'SDoc' if a particular flag is set or at a verbosity level of @-v -ddump-most@ or higher dumpIfSet_dyn :: DumpFlag -> String -> SDoc -> CoreM () |