From d9fd6a665237f0e2ab769915db873b9d72bd1c0a Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 25 Feb 2005 12:50:48 +0000
Subject: [PATCH] [project @ 2005-02-25 12:50:48 by simonpj] Profiling
 addition

---
 ghc/compiler/simplCore/SimplCore.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 7593adb..32c6978 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -476,7 +476,7 @@ simplifyPgm mode switches hsc_env us rule_base guts
 		-- 	case t of {(_,counts') -> if counts'=0 then ... }
 		-- So the conditional didn't force counts', because the
 		-- selection got duplicated.  Sigh!
-	   case initSmpl dflags us1 (simplTopBinds simpl_env tagged_binds) of {
+	   case initSmpl dflags us1 (_scc_ "SimplTopBinds" simplTopBinds simpl_env tagged_binds) of {
 	  	(binds', counts') -> do {
 
 	   let	{ guts'      = guts { mg_binds = binds' }
-- 
1.7.10.4