diff options
Diffstat (limited to 'compiler/GHC/SysTools/Process.hs')
| -rw-r--r-- | compiler/GHC/SysTools/Process.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |