diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 20:58:33 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 20:58:33 +0100 |
| commit | 5716a2f849a53c48f6171101fed7a473107f0756 (patch) | |
| tree | 4976930751c8ce9ea1dad166cce126ce282ab8b8 /compiler/simplStg | |
| parent | 65152943e6fe80dc5314e897dbf910137b01c47b (diff) | |
| download | haskell-5716a2f849a53c48f6171101fed7a473107f0756.tar.gz | |
Pass DynFlags to the LogAction
A side-effect is that we can no longer use the LogAction in
defaultErrorHandler, as we don't have DynFlags at that point.
But all that defaultErrorHandler did is to print Strings as
SevFatal, so now it takes a 'FatalMessager' instead.
Diffstat (limited to 'compiler/simplStg')
| -rw-r--r-- | compiler/simplStg/SimplStg.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplStg/SimplStg.lhs b/compiler/simplStg/SimplStg.lhs index 8493d9c275..d5024ab2e0 100644 --- a/compiler/simplStg/SimplStg.lhs +++ b/compiler/simplStg/SimplStg.lhs @@ -46,7 +46,7 @@ stg2stg dflags module_name binds ; us <- mkSplitUniqSupply 'g' ; doIfSet_dyn dflags Opt_D_verbose_stg2stg - (log_action dflags SevDump noSrcSpan defaultDumpStyle (text "VERBOSE STG-TO-STG:")) + (log_action dflags dflags SevDump noSrcSpan defaultDumpStyle (text "VERBOSE STG-TO-STG:")) ; (binds', us', ccs) <- end_pass us "Stg2Stg" ([],[],[]) binds |