diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-17 17:26:11 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-01 10:37:39 -0400 |
| commit | b3df9e780fb2f5658412c644849cd0f1e6f50331 (patch) | |
| tree | c5a45d8b043515e385a43e0c12172d6d74999ff5 /compiler/GHC/Core/Opt/Monad.hs | |
| parent | f8386c7b6a9d26bc5fd2c1d74d944c8df6337690 (diff) | |
| download | haskell-b3df9e780fb2f5658412c644849cd0f1e6f50331.tar.gz | |
Remove PprStyle param of logging actions
Use `withPprStyle` instead to apply a specific style to a SDoc.
Diffstat (limited to 'compiler/GHC/Core/Opt/Monad.hs')
| -rw-r--r-- | compiler/GHC/Core/Opt/Monad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Opt/Monad.hs b/compiler/GHC/Core/Opt/Monad.hs index 0db18b5790..0febfdb787 100644 --- a/compiler/GHC/Core/Opt/Monad.hs +++ b/compiler/GHC/Core/Opt/Monad.hs @@ -781,7 +781,7 @@ msg sev reason doc err_sty = mkErrStyle dflags unqual user_sty = mkUserStyle unqual AllTheWay dump_sty = mkDumpStyle unqual - ; liftIO $ putLogMsg dflags reason sev loc sty doc } + ; liftIO $ putLogMsg dflags reason sev loc (withPprStyle sty doc) } -- | Output a String message to the screen putMsgS :: String -> CoreM () |