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

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

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index bda7de1..a82579d 100644 (file)
--- 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 ->