X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprofiling%2FSCCfinal.lhs;h=d7a3a0d890bee05070cb8b216be8b8799ca8319a;hb=d01e768b927a536f36f8727f634a5e6e48e914e3;hp=3406858cce89d29ec98d082c01cbb2f97e5e1f1b;hpb=cb1ce9cd75baa5e640ec795c1518eb537b1caa28;p=ghc-hetmet.git

diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs
index 3406858..d7a3a0d 100644
--- a/ghc/compiler/profiling/SCCfinal.lhs
+++ b/ghc/compiler/profiling/SCCfinal.lhs
@@ -269,10 +269,7 @@ stgMassageForProfiling mod_name grp_name us stg_binds
     do_rhs (StgRhsClosure cc bi srt fv u args body)
       = set_lambda_cc (do_expr body)		`thenMM` \ body' ->
 	get_prevailing_cc 			`thenMM` \ prev_ccs ->
-	let new_ccs | isCurrentCCS prev_ccs = setCurrentCCS -- are we inside a lambda??
-		    | otherwise             = currentCCS
-	in
-	returnMM (StgRhsClosure new_ccs bi srt fv u args body')
+	returnMM (StgRhsClosure currentCCS bi srt fv u args body')
 
     do_rhs (StgRhsCon cc con args)
       = returnMM (StgRhsCon currentCCS con args)