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

[ghc-hetmet.git] / ghc / compiler / simplCore / SimplVar.lhs

diff --git a/ghc/compiler/simplCore/SimplVar.lhs b/ghc/compiler/simplCore/SimplVar.lhs
index 10a9f3c..c0a91cd 100644 (file)
--- a/ghc/compiler/simplCore/SimplVar.lhs
+++ b/ghc/compiler/simplCore/SimplVar.lhs
@@ -199,7 +199,7 @@ considerUnfolding env var args txt_occ form_summary template guidance
 
     rhs_looks_like_a_Con
       = let
-           (_,_,val_binders,body) = digForLambdas template
+           (_,_,val_binders,body) = collectBinders template
        in
        case (val_binders, body) of
          ([], Con _ _ _) -> True