diff options
Diffstat (limited to 'compiler/GHC.hs')
| -rw-r--r-- | compiler/GHC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC.hs b/compiler/GHC.hs index ce14dee795..cd1227d418 100644 --- a/compiler/GHC.hs +++ b/compiler/GHC.hs @@ -611,7 +611,7 @@ setSessionDynFlags dflags = do | otherwise = "" msg = text "Starting " <> text prog tr <- if verbosity dflags >= 3 - then return (logInfo dflags defaultDumpStyle msg) + then return (logInfo dflags $ withPprStyle defaultDumpStyle msg) else return (pure ()) let conf = IServConfig |