diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:35:41 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:35:41 +0100 |
| commit | 9d246714d9f3646030b2788030b503664707c46c (patch) | |
| tree | 92934454880e00681743ae5a5b97b24990187e9a /compiler/utils | |
| parent | 310ded12b731e5700b4af739a080c3e23904b41e (diff) | |
| download | haskell-9d246714d9f3646030b2788030b503664707c46c.tar.gz | |
Pass DynFlags down to hPrintDump
Diffstat (limited to 'compiler/utils')
| -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 |