diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-08-08 14:25:42 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-08-08 14:25:42 +0000 |
| commit | 10c4d1944f27aa7dc939ccb7e17e780602bdc47d (patch) | |
| tree | 0e1f4e15dc07c25a9af5edecd7964d5a5c90c9fd /compiler/utils/Outputable.lhs | |
| parent | d97079816522f4ac4add574c15b56961aceb036e (diff) | |
| download | haskell-10c4d1944f27aa7dc939ccb7e17e780602bdc47d.tar.gz | |
Send ghc progress output to stdout; fixes #3636
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index ba61a08db9..c6ba81c225 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -34,7 +34,7 @@ module Outputable ( speakNth, speakNTimes, speakN, speakNOf, plural, -- * Converting 'SDoc' into strings and outputing it - printSDoc, printErrs, hPrintDump, printDump, + printSDoc, printErrs, printOutput, hPrintDump, printDump, printForC, printForAsm, printForUser, printForUserPartWay, pprCode, mkCodeStyle, showSDoc, showSDocOneLine, @@ -287,6 +287,9 @@ printErrs :: Doc -> IO () printErrs doc = do Pretty.printDoc PageMode stderr doc hFlush stderr +printOutput :: Doc -> IO () +printOutput doc = Pretty.printDoc PageMode stdout doc + printDump :: SDoc -> IO () printDump doc = hPrintDump stdout doc |