Commit cf05fd69 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove unused showsPrecSDoc

parent 2ba157bc
...@@ -45,7 +45,7 @@ module Outputable ( ...@@ -45,7 +45,7 @@ module Outputable (
showSDoc, showSDocOneLine, showSDoc, showSDocOneLine,
showSDocForUser, showSDocDebug, showSDocDump, showSDocDumpOneLine, showSDocForUser, showSDocDebug, showSDocDump, showSDocDumpOneLine,
showPpr, showPpr,
showSDocUnqual, showsPrecSDoc, showSDocUnqual,
renderWithStyle, renderWithStyle,
pprInfixVar, pprPrefixVar, pprInfixVar, pprPrefixVar,
...@@ -385,9 +385,6 @@ showSDocUnqual :: DynFlags -> SDoc -> String ...@@ -385,9 +385,6 @@ showSDocUnqual :: DynFlags -> SDoc -> String
showSDocUnqual _ d showSDocUnqual _ d
= show (runSDoc d (initSDocContext (mkUserStyle neverQualify AllTheWay))) = 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 :: DynFlags -> SDoc -> String
showSDocDump _ d showSDocDump _ d
= Pretty.showDocWith PageMode (runSDoc d (initSDocContext defaultDumpStyle)) = Pretty.showDocWith PageMode (runSDoc d (initSDocContext defaultDumpStyle))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment