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/deSugar/Coverage.lhs | |
| 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/deSugar/Coverage.lhs')
| -rw-r--r-- | compiler/deSugar/Coverage.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index ec7adf543f..ca5ef9ac88 100644 --- a/compiler/deSugar/Coverage.lhs +++ b/compiler/deSugar/Coverage.lhs @@ -109,7 +109,9 @@ addTicksToBinds dflags mod mod_loc exports tyCons binds = hashNo <- writeMixEntries dflags mod count entries orig_file2 modBreaks <- mkModBreaks count entries - doIfSet_dyn dflags Opt_D_dump_ticked $ printDump (pprLHsBinds binds1) + doIfSet_dyn dflags Opt_D_dump_ticked $ + log_action dflags SevDump noSrcSpan defaultDumpStyle + (pprLHsBinds binds1) return (binds1, HpcInfo count hashNo, modBreaks) |