diff options
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 5f4b1ff493..738b835537 100644 --- a/compiler/utils/Outputable.lhs +++ b/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 |