summaryrefslogtreecommitdiff
path: root/compiler/GHC.hs
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2020-03-17 17:26:11 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-05-01 10:37:39 -0400
commitb3df9e780fb2f5658412c644849cd0f1e6f50331 (patch)
treec5a45d8b043515e385a43e0c12172d6d74999ff5 /compiler/GHC.hs
parentf8386c7b6a9d26bc5fd2c1d74d944c8df6337690 (diff)
downloadhaskell-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.hs')
-rw-r--r--compiler/GHC.hs2
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