[project @ 2000-12-06 13:03:28 by simonmar]

[ghc-hetmet.git] / ghc / compiler / deSugar / Desugar.lhs

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index fb21765..4b2143b 100644 (file)
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -70,11 +70,11 @@ deSugar dflags pcs hst mod_name unqual
                  (printErrs unqual (pprBagOfWarnings ds_warns))
 
        -- Lint result if necessary
-        ; let do_dump_ds = dopt Opt_D_dump_ds dflags
-        ; endPass dflags "Desugar" do_dump_ds ds_binds
+        ; endPass dflags "Desugar" Opt_D_dump_ds ds_binds
 
        -- Dump output
-       ; doIfSet do_dump_ds (printDump (ppr_ds_rules ds_rules))
+       ; doIfSet (dopt Opt_D_dump_ds dflags) 
+               (printDump (ppr_ds_rules ds_rules))
 
         ; return result
        }