From 2ba65cebbeade2f35d60fd3b58a7b5650bcb3b8e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 2 Aug 2005 14:53:26 +0000
Subject: [PATCH] [project @ 2005-08-02 14:53:26 by simonmar] Fix an SCC

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

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 10c946b..187f644 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -573,7 +573,7 @@ myCoreToStg dflags home_mods this_mod prepd_binds
       stg_binds <- {-# SCC "Core2Stg" #-}
 	     coreToStg home_mods prepd_binds
 
-      (stg_binds2, cost_centre_info) <- {-# SCC "Core2Stg" #-}
+      (stg_binds2, cost_centre_info) <- {-# SCC "Stg2Stg" #-}
 	     stg2stg dflags home_mods this_mod stg_binds
 
       return (stg_binds2, cost_centre_info)
-- 
1.7.10.4