Commit 85754c0e authored by simonmar's avatar simonmar
Browse files

[project @ 2001-02-26 16:27:46 by simonmar]

fix dumping in desugarExpr
parent 436d7d67
......@@ -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
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment