diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 19:29:08 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 19:29:08 +0100 |
| commit | cf05fd691697f15e037d69e06b21fae01c5f3f13 (patch) | |
| tree | 58694425c1c7f9f9844579808638cc9f7f2f1004 /compiler/utils | |
| parent | 2ba157bc9bd338b7627814470672562c1a6d47e4 (diff) | |
| download | haskell-cf05fd691697f15e037d69e06b21fae01c5f3f13.tar.gz | |
Remove unused showsPrecSDoc
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 80c04094be..a6410352c3 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -45,7 +45,7 @@ module Outputable ( showSDoc, showSDocOneLine, showSDocForUser, showSDocDebug, showSDocDump, showSDocDumpOneLine, showPpr, - showSDocUnqual, showsPrecSDoc, + showSDocUnqual, renderWithStyle, pprInfixVar, pprPrefixVar, @@ -385,9 +385,6 @@ showSDocUnqual :: DynFlags -> SDoc -> String showSDocUnqual _ d = show (runSDoc d (initSDocContext (mkUserStyle neverQualify AllTheWay))) -showsPrecSDoc :: Int -> SDoc -> ShowS -showsPrecSDoc p d = showsPrec p (runSDoc d (initSDocContext defaultUserStyle)) - showSDocDump :: DynFlags -> SDoc -> String showSDocDump _ d = Pretty.showDocWith PageMode (runSDoc d (initSDocContext defaultDumpStyle)) |