Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/cf05fd691697f15e037d69e06b21fae01c5f3f13 >--------------------------------------------------------------- commit cf05fd691697f15e037d69e06b21fae01c5f3f13 Author: Ian Lynagh <[email protected]> Date: Tue Jun 12 19:29:08 2012 +0100 Remove unused showsPrecSDoc >--------------------------------------------------------------- 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 80c0409..a641035 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)) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
