X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplVar.lhs;h=c0a91cddea13d6d7e5ab7d4f4e1f36cb56655d46;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=10a9f3caa0c7d18a14b7c3723ddd60e6ec62ac95;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/SimplVar.lhs b/ghc/compiler/simplCore/SimplVar.lhs
index 10a9f3c..c0a91cd 100644
--- 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