diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs index 3bed2f8749fe9d1a7f17d6b8df832719cd004b2c..3309640f95897d627a9493fa653f1f03b813e489 100644 --- a/ghc/compiler/profiling/CostCentre.lhs +++ b/ghc/compiler/profiling/CostCentre.lhs @@ -424,7 +424,7 @@ pprCostCentreDecl is_local cc hcat [ ptext SLIT("CC_DECLARE"),char '(', cc_ident, comma, - text (costCentreUserName cc), comma, + doubleQuotes (text (costCentreUserName cc)), comma, doubleQuotes (text (moduleUserString mod_name)), comma, doubleQuotes (ptext grp_name), comma, ptext is_subsumed, comma,