diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-05-29 01:46:07 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-05-29 01:46:07 +0100 |
| commit | 78252479dfa2e3ef11d973fdec9e29b5d3810930 (patch) | |
| tree | 92e1a59a912e21ccd0fd6583785b1e4d264a3c3c /compiler/simplStg | |
| parent | cd70047385306f4853a7afdfe1e14eda66cab1d4 (diff) | |
| download | haskell-78252479dfa2e3ef11d973fdec9e29b5d3810930.tar.gz | |
Replace printDump with a new Severity
We now use log_action with severity SevDump, rather than calling
printDump. This means that what happens to dumped info is now under
the control of the GHC API user, rather than always going to stdout.
Diffstat (limited to 'compiler/simplStg')
| -rw-r--r-- | compiler/simplStg/SimplStg.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs index 8ade2d5f10..1bec3925ac 100644 --- a/compiler/simplStg/SimplStg.lhs +++ b/compiler/simplStg/SimplStg.lhs @@ -27,7 +27,8 @@ import DynFlags ( DynFlags(..), DynFlag(..), dopt, StgToDo(..), getStgToDo ) import Id ( Id ) import Module ( Module ) -import ErrUtils ( doIfSet_dyn, dumpIfSet_dyn, showPass ) +import ErrUtils +import SrcLoc import UniqSupply ( mkSplitUniqSupply, splitUniqSupply ) import Outputable \end{code} @@ -44,7 +45,7 @@ stg2stg dflags module_name binds ; us <- mkSplitUniqSupply 'g' ; doIfSet_dyn dflags Opt_D_verbose_stg2stg - (printDump (text "VERBOSE STG-TO-STG:")) + (log_action dflags SevDump noSrcSpan defaultDumpStyle (text "VERBOSE STG-TO-STG:")) ; (binds', us', ccs) <- end_pass us "Stg2Stg" ([],[],[]) binds |