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

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index cf446c0..2ada373 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -473,12 +473,12 @@ calcInlinings scc_s_OK sw_chkr inline_env_so_far top_binds
 	rhs_looks_like_a_caf = not (manifestlyWHNF rhs)
 
 	rhs_looks_like_a_data_val
-	  = case (digForLambdas rhs) of
+	  = case (collectBinders rhs) of
 	      (_, _, [], Con _ _ _) -> True
 	      other		    -> False
 
 	rhs_arg_tys
-	  = case (digForLambdas rhs) of
+	  = case (collectBinders rhs) of
 	      (_, _, val_binders, _) -> map idType val_binders
 
 	(mentioned_ids, _, _, mentions_litlit)