From: simonmar <unknown>
Date: Tue, 2 Aug 2005 14:53:26 +0000 (+0000)
Subject: [project @ 2005-08-02 14:53:26 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~275
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=2ba65cebbeade2f35d60fd3b58a7b5650bcb3b8e

[project @ 2005-08-02 14:53:26 by simonmar]
Fix an SCC
---

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)