diff options
| -rw-r--r-- | compiler/main/DynFlags.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 874737143a..ccd0a75297 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -973,7 +973,7 @@ defaultFatalMessager :: FatalMessager defaultFatalMessager = hPutStrLn stderr defaultLogAction :: LogAction -defaultLogAction _ severity srcSpan style msg +defaultLogAction dflags severity srcSpan style msg = case severity of SevOutput -> printSDoc msg style SevDump -> hPrintDump stdout msg @@ -984,11 +984,11 @@ defaultLogAction _ severity srcSpan style msg -- careful (#2302): printErrs prints in UTF-8, whereas -- converting to string first and using hPutStr would -- just emit the low 8 bits of each unicode char. - where printSDoc = defaultLogActionHPrintDoc stdout - printErrs = defaultLogActionHPrintDoc stderr + where printSDoc = defaultLogActionHPrintDoc dflags stdout + printErrs = defaultLogActionHPrintDoc dflags stderr -defaultLogActionHPrintDoc :: Handle -> SDoc -> PprStyle -> IO () -defaultLogActionHPrintDoc h d sty +defaultLogActionHPrintDoc :: DynFlags -> Handle -> SDoc -> PprStyle -> IO () +defaultLogActionHPrintDoc _ h d sty = do Pretty.printDoc Pretty.PageMode h (runSDoc d (initSDocContext sty)) hFlush h |