[project @ 1999-05-28 19:24:26 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 f3a2ad0..bc2174e 100644 (file)
--- a/ghc/compiler/stranal/StrictAnal.lhs
+++ b/ghc/compiler/stranal/StrictAnal.lhs
@@ -328,7 +328,8 @@ 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) -> binder `setIdStrictness` 
+       (binders, rhs) -> -- pprTrace "addStr" (ppr binder $$ ppr strictness) $
+                         binder `setIdStrictness` 
                          mkStrictnessInfo strictness
                where
                    tys        = [idType id | id <- binders, isId id]