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

[ghc-hetmet.git] / ghc / compiler / stranal / StrictAnal.lhs

diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs
index 4c85197..aeb1c3f 100644 (file)
--- a/ghc/compiler/stranal/StrictAnal.lhs
+++ b/ghc/compiler/stranal/StrictAnal.lhs
@@ -94,8 +94,7 @@ saBinds dflags binds
        let { binds_w_strictness = saTopBindsBinds binds };
 #endif
 
-       endPass dflags "Strictness analysis" 
-               (dopt Opt_D_dump_stranal dflags || dopt Opt_D_verbose_core2core dflags)
+       endPass dflags "Strictness analysis" Opt_D_dump_stranal
                binds_w_strictness
     }
 \end{code}