X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fstranal%2FStrictAnal.lhs;h=a5efe30d3990e9cd58e379c6b5b8d13800123b0d;hb=aedb94f5f220b5e442b23ecc445fd38c8d9b6ba0;hp=04632053ceafdd51460a1e8d71e5ad11d4c4a355;hpb=f5d4c3239e57b0396672ffc302961f84398d730e;p=ghc-hetmet.git

diff --git a/compiler/stranal/StrictAnal.lhs b/compiler/stranal/StrictAnal.lhs
index 0463205..a5efe30 100644
--- a/compiler/stranal/StrictAnal.lhs
+++ b/compiler/stranal/StrictAnal.lhs
@@ -95,8 +95,6 @@ strict workers.
 saBinds :: DynFlags -> [CoreBind] -> IO [CoreBind]
 saBinds dflags binds
   = do {
-	showPass dflags "Strictness analysis";
-
 	-- Mark each binder with its strictness
 #ifndef OMIT_STRANAL_STATS
 	let { (binds_w_strictness, sa_stats) = runState $ (saTopBinds binds) nullSaStats };
@@ -106,8 +104,7 @@ saBinds dflags binds
 	let { binds_w_strictness = unSaM $ saTopBindsBinds binds };
 #endif
 
-	endPass dflags "Strictness analysis" Opt_D_dump_stranal
-		binds_w_strictness
+	return binds_w_strictness
     }
 \end{code}