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

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

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index cf446c0..2ada373 100644 (file)
--- 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)