X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FStrictAnal.lhs;h=f3a2ad0eb7041ff9f0097045f4aaf33a080ffed5;hb=cfcebde74cf826af12143a92bcffa8c995eee135;hp=bc2174e3ee88c6d2abc4074a5acaacf272bfb7d7;hpb=f016a43fcbcca53a284e8d6206705ed468a97736;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs
index bc2174e..f3a2ad0 100644
--- a/ghc/compiler/stranal/StrictAnal.lhs
+++ b/ghc/compiler/stranal/StrictAnal.lhs
@@ -328,8 +328,7 @@ addStrictnessInfoToId str_val abs_val binder body
 	-- We could use 'collectBindersIgnoringNotes', but then the 
 	-- strictness info may have more items than the visible binders
 	-- used by WorkWrap.tryWW
-	(binders, rhs) -> -- pprTrace "addStr" (ppr binder $$ ppr strictness) $
-			  binder `setIdStrictness` 
+	(binders, rhs) -> binder `setIdStrictness` 
 			  mkStrictnessInfo strictness
 		where
 		    tys        = [idType id | id <- binders, isId id]