X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDesugar.lhs;h=5e2c50459434fb69f6f78df9e6796ee063d4f0b1;hb=85754c0e8d62a2ac46cb983fb0033fdcdd38f6ef;hp=3e1ff60ea83dcbc9b0a2bd11c80d35ba236e683f;hpb=436d7d6786f82883b898c694f69df23111d06a0f;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index 3e1ff60..5e2c504 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -30,7 +30,7 @@ import VarEnv
 import VarSet
 import Bag		( isEmptyBag )
 import CoreLint		( showPass, endPass )
-import ErrUtils		( doIfSet, pprBagOfWarnings )
+import ErrUtils		( doIfSet, dumpIfSet_dyn, pprBagOfWarnings )
 import Outputable
 import UniqSupply	( mkSplitUniqSupply )
 import HscTypes		( HomeSymbolTable, PersistentCompilerState(..), TyThing(..), lookupType,  )
@@ -110,8 +110,7 @@ deSugarExpr dflags pcs hst mod_name unqual tc_expr
 		  (printErrs unqual (pprBagOfWarnings ds_warns))
 
 	-- Dump output
-        ; let do_dump_ds = dopt Opt_D_dump_ds dflags
-	; doIfSet do_dump_ds (printDump (pprCoreExpr core_expr))
+	; dumpIfSet_dyn dflags Opt_D_dump_ds "Desugared" (pprCoreExpr core_expr)
 
         ; return core_expr
 	}