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

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

diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs
index bc2174e..f3a2ad0 100644 (file)
--- 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]