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

[ghc-hetmet.git] / ghc / compiler / profiling / SCCauto.lhs

diff --git a/ghc/compiler/profiling/SCCauto.lhs b/ghc/compiler/profiling/SCCauto.lhs
index ba3da63..eb8f143 100644 (file)
--- a/ghc/compiler/profiling/SCCauto.lhs
+++ b/ghc/compiler/profiling/SCCauto.lhs
@@ -73,7 +73,7 @@ addAutoCostCentres mod_name binds
 
        scc_rhs rhs
          = let
-               (usevars, tyvars, vars, body) = digForLambdas rhs
+               (usevars, tyvars, vars, body) = collectBinders rhs
            in
            case body of
              SCC _ _ -> rhs -- leave it