X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fstranal%2FStrictAnal.lhs;h=920f8415ef19186cebbb1ba015b3960cf026cff2;hb=c8ef1c4a3da7b86516866d8e30e81ef4f9a06041;hp=7adbe3fd5ae7fa4e171184a24d9db113a76c02a4;hpb=b9e1d7891fbcacb1ebe66248124296c4ffc7d3d0;p=ghc-hetmet.git

diff --git a/compiler/stranal/StrictAnal.lhs b/compiler/stranal/StrictAnal.lhs
index 7adbe3f..920f841 100644
--- a/compiler/stranal/StrictAnal.lhs
+++ b/compiler/stranal/StrictAnal.lhs
@@ -29,7 +29,6 @@ import Id		( setIdStrictness, setInlinePragma,
 			  idDemandInfo, setIdDemandInfo, isBottomingId,
 			  Id
 			)
-import CoreLint		( showPass, endPass )
 import ErrUtils		( dumpIfSet_dyn )
 import SaAbsInt
 import SaLib
@@ -95,8 +94,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 +103,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}
 
@@ -445,9 +441,9 @@ tick_demanded var (tot, demanded)
      else demanded)
 
 pp_stats (SaStats tlam dlam tc dc tlet dlet)
-      = hcat [ptext SLIT("Lambda vars: "), int (iBox dlam), char '/', int (iBox tlam),
-	      ptext SLIT("; Case vars: "), int (iBox dc),   char '/', int (iBox tc),
-	      ptext SLIT("; Let vars: "),  int (iBox dlet), char '/', int (iBox tlet)
+      = hcat [ptext (sLit "Lambda vars: "), int (iBox dlam), char '/', int (iBox tlam),
+	      ptext (sLit "; Case vars: "), int (iBox dc),   char '/', int (iBox tc),
+	      ptext (sLit "; Let vars: "),  int (iBox dlet), char '/', int (iBox tlet)
 	]
 
 #else /* OMIT_STRANAL_STATS */