X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FSaAbsInt.lhs;h=37e9248d877718d82b723021f3e4dc369944441c;hb=cfcebde74cf826af12143a92bcffa8c995eee135;hp=94c4b0f3971afa8c503e71c422096406d439147e;hpb=7dd11ebc4d4d091edc0f5e3c13f041b99961c136;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index 94c4b0f..37e9248 100644
--- a/ghc/compiler/stranal/SaAbsInt.lhs
+++ b/ghc/compiler/stranal/SaAbsInt.lhs
@@ -632,9 +632,7 @@ findStrictness tys str_val abs_val
   where
     tys_w_index = tys `zip` [(1::Int) ..]
 
-    find_str (ty,n) = -- let res = 
-		      -- in pprTrace "findStr" (ppr ty <+> int n <+> ppr res) res
-		      findRecDemand str_fn abs_fn ty
+    find_str (ty,n) = findRecDemand str_fn abs_fn ty
 		    where
 		      str_fn val = foldl (absApply StrAnal) str_val 
 					 (map (mk_arg val n) tys_w_index)