From 5716a2f849a53c48f6171101fed7a473107f0756 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 11 Jun 2012 20:58:33 +0100 Subject: 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. --- compiler/simplStg/SimplStg.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler/simplStg') 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 -- cgit v1.2.1