diff options
Diffstat (limited to 'ghc/compiler/utils/Outputable.lhs')
| -rw-r--r-- | ghc/compiler/utils/Outputable.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs index f44fd2ade9..c79b577e51 100644 --- a/ghc/compiler/utils/Outputable.lhs +++ b/ghc/compiler/utils/Outputable.lhs @@ -37,7 +37,7 @@ module Outputable ( printSDoc, printErrs, printDump, printForC, printForAsm, printForIface, pprCode, pprCols, - showSDoc, showsPrecSDoc, pprFSAsString, + showSDoc, showSDocDebug, showsPrecSDoc, pprFSAsString, -- error handling @@ -186,6 +186,9 @@ pprCode cs d = withPprStyle (PprCode cs) d showSDoc :: SDoc -> String showSDoc d = show (d (mkUserStyle AllTheWay)) +showSDocDebug :: SDoc -> String +showSDocDebug d = show (d PprDebug) + showsPrecSDoc :: Int -> SDoc -> ShowS showsPrecSDoc p d = showsPrec p (d (mkUserStyle AllTheWay)) |