X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FStrictAnal.lhs;h=aeb1c3fe50cef4bd4c93ef2fe63a1b371900403c;hb=d364541154457a49e3c35d671d7a1b57c9c4cca3;hp=4c85197f0559fd2068e43cc25cd7e4956880bb70;hpb=91925e64be392662836f75d6648776994b1cae28;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs
index 4c85197..aeb1c3f 100644
--- 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}