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/main/ErrUtils.lhs | |
| parent | d97079816522f4ac4add574c15b56961aceb036e (diff) | |
| download | haskell-10c4d1944f27aa7dc939ccb7e17e780602bdc47d.tar.gz | |
Send ghc progress output to stdout; fixes #3636
Diffstat (limited to 'compiler/main/ErrUtils.lhs')
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index f1328e0da7..3ab89bd733 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -53,7 +53,8 @@ pprMessageBag :: Bag Message -> SDoc pprMessageBag msgs = vcat (punctuate blankLine (bagToList msgs)) data Severity - = SevInfo + = SevOutput + | SevInfo | SevWarning | SevError | SevFatal @@ -310,7 +311,7 @@ fatalErrorMsg dflags msg = log_action dflags SevFatal noSrcSpan defaultErrStyle compilationProgressMsg :: DynFlags -> String -> IO () compilationProgressMsg dflags msg - = ifVerbose dflags 1 (log_action dflags SevInfo noSrcSpan defaultUserStyle (text msg)) + = ifVerbose dflags 1 (log_action dflags SevOutput noSrcSpan defaultUserStyle (text msg)) showPass :: DynFlags -> String -> IO () showPass dflags what |