[project @ 1999-06-08 16:46:44 by simonpj]

[ghc-hetmet.git] / ghc / compiler / stranal / SaAbsInt.lhs

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index 94c4b0f..37e9248 100644 (file)
--- 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)