X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=346e8043eacff7497586574f6838355eb20f9052;hp=ca2bb7e81e5a1bd6c870b75d1c7e07d534bbc7be;hb=9c5675a3f32ba9d3e8d66c43773a24d30cd4dec8;hpb=0ee1d0fd7b5cae2857fe6632cbee5441c011bb99

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index ca2bb7e..346e804 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -671,7 +671,7 @@ hscFileCheck hsc_env mod_summary compileToCore = do {
  	    -- RENAME and TYPECHECK
  	    -------------------
 	  (tc_msgs, maybe_tc_result) 
-		<- _scc_ "Typecheck-Rename" 
+		<- {-# SCC "Typecheck-Rename" #-}
 		   tcRnModule hsc_env (ms_hsc_src mod_summary) 
 			True{-save renamed syntax-}
 			rdr_module