X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FWorkWrap.lhs;h=a82579db1de4e387d20c45901e7172640563abf4;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=bda7de10b176a8933742fcb0c1a44bbc4c806314;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index bda7de1..a82579d 100644
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -206,7 +206,7 @@ tryWW fn_id rhs
 
 	-- OK, it looks as if a worker is worth a try
 	let
-	     (uvars, tyvars, args, body) = digForLambdas rhs
+	     (uvars, tyvars, args, body) = collectBinders rhs
 	     body_ty			 = coreExprType body
 	in
 	uniqSMtoWwM (mkWwBodies body_ty tyvars args args_info) `thenWw` \ result ->