diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-07-19 20:38:05 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-07-19 20:38:05 +0100 |
| commit | 322044b2670fe9dca22122dbf4cc79fa29b4442c (patch) | |
| tree | e3226359676fab1cc0560f6ed827d598fb2ddfc5 /compiler/utils/Outputable.lhs | |
| parent | fb0769b62e3ea4392ad970f8913a76187fead79f (diff) | |
| parent | 0f693381e356ec90ee72ab40b21b74cbf4e20eb3 (diff) | |
| download | haskell-322044b2670fe9dca22122dbf4cc79fa29b4442c.tar.gz | |
Merge branch 'master' of darcs.haskell.org:/srv/darcs//ghc
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index abc172e1c9..ba397a0568 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -38,7 +38,6 @@ module Outputable ( colBinder, bold, keyword, -- * Converting 'SDoc' into strings and outputing it - hPrintDump, printForC, printForAsm, printForUser, printForUserPartWay, pprCode, mkCodeStyle, showSDoc, showSDocOneLine, @@ -91,7 +90,7 @@ import qualified Data.IntMap as IM import Data.Set (Set) import qualified Data.Set as Set import Data.Word -import System.IO ( Handle, hFlush ) +import System.IO ( Handle ) import System.FilePath @@ -330,13 +329,6 @@ ifPprDebug d = SDoc $ \ctx -> \end{code} \begin{code} -hPrintDump :: DynFlags -> Handle -> SDoc -> IO () -hPrintDump dflags h doc = do - Pretty.printDoc PageMode (pprCols dflags) h - (runSDoc better_doc (initSDocContext dflags defaultDumpStyle)) - hFlush h - where - better_doc = doc $$ blankLine printForUser :: DynFlags -> Handle -> PrintUnqualified -> SDoc -> IO () printForUser dflags handle unqual doc |