[project @ 1996-03-21 12:46:33 by partain]

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

diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs
index f98e5e4..6605d26 100644 (file)
--- a/ghc/compiler/stranal/StrictAnal.lhs
+++ b/ghc/compiler/stranal/StrictAnal.lhs
@@ -400,7 +400,7 @@ addStrictnessInfoToId strflags str_val abs_val binder body
     if (isBot str_val) then
        binder `addIdStrictness` mkBottomStrictnessInfo
     else
-       case (digForLambdas body) of { (_, _, lambda_bounds, rhs) ->
+       case (collectBinders body) of { (_, _, lambda_bounds, rhs) ->
        let
                tys        = map idType lambda_bounds
                strictness = findStrictness strflags tys str_val abs_val