X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgProf.hs;h=9bbf05b90c0482f3829b6915dc969962feaa7cb6;hb=5edf58c10a0144fa8b328e18d0b7fffec2319424;hp=1488e34956ddafd3096c2c3c71f58444fd84bd86;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgProf.hs b/compiler/codeGen/CgProf.hs
index 1488e34..9bbf05b 100644
--- a/compiler/codeGen/CgProf.hs
+++ b/compiler/codeGen/CgProf.hs
@@ -43,12 +43,12 @@ import MachOp
 import CmmUtils		( zeroCLit, mkIntCLit, mkLblExpr )
 import CLabel		( mkCCLabel, mkCCSLabel, mkRtsDataLabel )
 
-import Module		( moduleString )
+import Module		( pprModule )
 import Id		( Id )
 import CostCentre
 import StgSyn		( GenStgExpr(..), StgExpr )
 import StaticFlags	( opt_SccProfilingOn )
-import FastString	( FastString, mkFastString, LitString )	
+import FastString	( FastString )
 import Constants	-- Lots of field offsets
 import Outputable
 
@@ -292,7 +292,7 @@ emitCostCentreDecl
    -> Code
 emitCostCentreDecl cc = do 
   { label <- mkStringCLit (costCentreUserName cc)
-  ; modl  <- mkStringCLit (moduleString (cc_mod cc))
+  ; modl  <- mkStringCLit (showSDoc (pprModule (cc_mod cc)))
   ; let
      lits = [ zero,   	-- StgInt ccID,
 	      label,	-- char *label,