X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprofiling%2FCostCentre.lhs;fp=ghc%2Fcompiler%2Fprofiling%2FCostCentre.lhs;h=15cd2afc00010e9f773055da6bd3ed208ee1757e;hb=f54f42974c3d209656c31012c96243119a83103f;hp=02d732b3dbbbac6f42f0b1164882e3bec6af36c4;hpb=969bf5def3ed69d7ec196fde4fdf48d431fffa55;p=ghc-hetmet.git

diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index 02d732b..15cd2af 100644
--- a/ghc/compiler/profiling/CostCentre.lhs
+++ b/ghc/compiler/profiling/CostCentre.lhs
@@ -35,6 +35,7 @@ import Module		( Module, ModuleName, moduleName,
 			  pprModuleName, moduleNameUserString
 			)
 import Outputable	
+import CStrings		( pprStringInCStyle )
 import Util	        ( thenCmp )
 \end{code}
 
@@ -358,7 +359,7 @@ ppCostCentreLbl (NormalCC {cc_name = n, cc_mod = m, cc_is_caf = is_caf})
 -- This is the name to go in the user-displayed string, 
 -- recorded in the cost centre declaration
 costCentreUserName (NoCostCentre)  = "NO_CC"
-costCentreUserName (AllCafsCC {})  = "CAFs_in_..."
+costCentreUserName (AllCafsCC {})  = "CAF"
 costCentreUserName cc@(NormalCC {cc_name = name, cc_is_caf = is_caf})
   =  case is_caf of { CafCC -> "CAF:";   _ -> "" } ++ decode (_UNPK_ name)
 \end{code}
@@ -375,8 +376,8 @@ pprCostCentreDecl is_local cc
 	hcat [
 	    ptext SLIT("CC_DECLARE"),char '(',
 	    cc_ident, 		  					comma,
-	    doubleQuotes (text (costCentreUserName cc)),		comma,
-	    doubleQuotes (text (moduleNameUserString mod_name)),	comma,
+	    pprStringInCStyle (costCentreUserName cc),			comma,
+	    pprStringInCStyle (moduleNameUserString mod_name),		comma,
 	    ptext is_subsumed,						comma,
 	    empty,	-- Now always externally visible
 	    text ");"]