diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 00:46:49 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 00:46:49 +0100 |
| commit | 8685576a3a1802e98480d74beecf7c8450363907 (patch) | |
| tree | b19714a298d7e61fd3cc893915e400c66bc129fa /compiler/utils | |
| parent | a6ec94937f9456f5c7ee122b088f37048bf8b265 (diff) | |
| download | haskell-8685576a3a1802e98480d74beecf7c8450363907.tar.gz | |
Pass DynFlags down to showSDocDump
To help with this, we now also pass DynFlags around inside the SpecM
monad.
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 364786e212..c0b77bb9bd 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -388,8 +388,8 @@ showSDocUnqual _ d showsPrecSDoc :: Int -> SDoc -> ShowS showsPrecSDoc p d = showsPrec p (runSDoc d (initSDocContext defaultUserStyle)) -showSDocDump :: SDoc -> String -showSDocDump d +showSDocDump :: DynFlags -> SDoc -> String +showSDocDump _ d = Pretty.showDocWith PageMode (runSDoc d (initSDocContext defaultDumpStyle)) showSDocDumpOneLine :: SDoc -> String |