diff options
Diffstat (limited to 'compiler/codeGen/CgProf.hs')
| -rw-r--r-- | compiler/codeGen/CgProf.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/codeGen/CgProf.hs b/compiler/codeGen/CgProf.hs index 23a602c174..c961e24147 100644 --- a/compiler/codeGen/CgProf.hs +++ b/compiler/codeGen/CgProf.hs @@ -162,9 +162,11 @@ emitCostCentreDecl :: CostCentre -> Code emitCostCentreDecl cc = do - { label <- newStringCLit (costCentreUserName cc) - ; modl <- newStringCLit (Module.moduleNameString - (Module.moduleName (cc_mod cc))) + -- NB. bytesFS: we want the UTF-8 bytes here (#5559) + { label <- newByteStringCLit (bytesFS $ costCentreUserNameFS cc) + ; modl <- newByteStringCLit (bytesFS $ Module.moduleNameFS + $ Module.moduleName + $ cc_mod cc) -- All cost centres will be in the main package, since we -- don't normally use -auto-all or add SCCs to other packages. -- Hence don't emit the package name in the module here. |