Pass DynFlags down to hPrintDump

compiler/main/DynFlags.hs

@@ -976,7 +976,7 @@ defaultLogAction :: LogAction
 defaultLogAction dflags severity srcSpan style msg
     = case severity of
       SevOutput -> printSDoc msg style
-      SevDump   -> hPrintDump stdout msg
+      SevDump   -> hPrintDump dflags stdout msg
       SevInfo   -> printErrs msg style
       SevFatal  -> printErrs msg style
       _         -> do hPutChar stderr '\n'

compiler/main/DynFlags.hs-boot

+
+module DynFlags where
+
+data DynFlags

compiler/main/ErrUtils.lhs

@@ -247,7 +247,7 @@ dumpSDoc dflags dflag hdr doc
                             writeIORef gdref (Set.insert fileName gd)
                         createDirectoryIfMissing True (takeDirectory fileName)
                         handle <- openFile fileName mode
-                        hPrintDump handle doc
+                        hPrintDump dflags handle doc
                         hClose handle
 
             -- write the dump to stdout

compiler/utils/Outputable.lhs

@@ -71,6 +71,7 @@ module Outputable (
         pprDebugAndThen,
     ) where
 
+import {-# SOURCE #-}   DynFlags( DynFlags )
 import {-# SOURCE #-}   Module( Module, ModuleName, moduleName )
 import {-# SOURCE #-}   Name( Name, nameModule )
 
@@ -319,8 +320,8 @@ ifPprDebug d = SDoc $ \ctx ->
 \end{code}
 
 \begin{code}
-hPrintDump :: Handle -> SDoc -> IO ()
-hPrintDump h doc = do
+hPrintDump :: DynFlags -> Handle -> SDoc -> IO ()
+hPrintDump _ h doc = do
    Pretty.printDoc PageMode h
      (runSDoc better_doc (initSDocContext defaultDumpStyle))
    hFlush h