From 85754c0e8d62a2ac46cb983fb0033fdcdd38f6ef Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 26 Feb 2001 16:27:46 +0000 Subject: [PATCH] [project @ 2001-02-26 16:27:46 by simonmar] fix dumping in desugarExpr --- ghc/compiler/deSugar/Desugar.lhs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 } -- 1.7.10.4