X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fprofiling%2FSCCauto.lhs;h=eb8f1430ad0e4ff02fdf68821e82e67dedd2dc87;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=ba3da63cb882bcfb75acf797efaecbc199c9213a;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/profiling/SCCauto.lhs b/ghc/compiler/profiling/SCCauto.lhs
index ba3da63..eb8f143 100644
--- 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