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/SysTools | |
| 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/SysTools')
| -rw-r--r-- | compiler/GHC/SysTools/ExtraObj.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/SysTools/Process.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/SysTools/ExtraObj.hs b/compiler/GHC/SysTools/ExtraObj.hs index 3d12158b5c..46081df98c 100644 --- a/compiler/GHC/SysTools/ExtraObj.hs +++ b/compiler/GHC/SysTools/ExtraObj.hs @@ -77,7 +77,7 @@ mkExtraObjToLinkIntoBinary :: DynFlags -> IO FilePath mkExtraObjToLinkIntoBinary dflags = do when (gopt Opt_NoHsMain dflags && haveRtsOptsFlags dflags) $ do putLogMsg dflags NoReason SevInfo noSrcSpan - defaultUserStyle + $ withPprStyle defaultUserStyle (text "Warning: -rtsopts and -with-rtsopts have no effect with -no-hs-main." $$ text " Call hs_init_ghc() from your main() function to set these options.") diff --git a/compiler/GHC/SysTools/Process.hs b/compiler/GHC/SysTools/Process.hs index 5482a4ef25..a7649ed534 100644 --- a/compiler/GHC/SysTools/Process.hs +++ b/compiler/GHC/SysTools/Process.hs @@ -282,11 +282,11 @@ builderMainLoop dflags filter_fn pgm real_args mb_cwd mb_env = do case msg of BuildMsg msg -> do putLogMsg dflags NoReason SevInfo noSrcSpan - defaultUserStyle msg + $ withPprStyle defaultUserStyle msg log_loop chan t BuildError loc msg -> do putLogMsg dflags NoReason SevError (mkSrcSpan loc loc) - defaultUserStyle msg + $ withPprStyle defaultUserStyle msg log_loop chan t EOF -> log_loop chan (t-1) |