X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fstranal%2FStrictAnal.lhs;h=6605d26262675be6f8f2541dbe17b2fff8e55684;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=f98e5e42854678dd2f4f8e9f8c3249572f3b0a42;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/StrictAnal.lhs b/ghc/compiler/stranal/StrictAnal.lhs
index f98e5e4..6605d26 100644
--- 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