[project @ 2001-06-28 08:36:30 by simonpj]

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

diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs
index 4c85197..bac6b14 100644 (file)
--- a/ghc/compiler/stranal/StrictAnal.lhs
+++ b/ghc/compiler/stranal/StrictAnal.lhs
@@ -11,7 +11,7 @@ module StrictAnal ( saBinds ) where
 
 #include "HsVersions.h"
 
-import CmdLineOpts     ( DynFlags, DynFlag(..), dopt )
+import CmdLineOpts     ( DynFlags, DynFlag(..) )
 import CoreSyn
 import Id              ( setIdStrictness, setInlinePragma, 
                          idDemandInfo, setIdDemandInfo, isBottomingId,
@@ -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}