From: simonmar <unknown>
Date: Mon, 26 Feb 2001 16:27:46 +0000 (+0000)
Subject: [project @ 2001-02-26 16:27:46 by simonmar]
X-Git-Tag: Approximately_9120_patches~2545
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=85754c0e8d62a2ac46cb983fb0033fdcdd38f6ef;p=ghc-hetmet.git

[project @ 2001-02-26 16:27:46 by simonmar]
fix dumping in desugarExpr
---

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
 	}