[project @ 1999-02-06 18:05:45 by sof]

CC_DECLARE ppr bugfix

diff --git a/ghc/compiler/profiling/CostCentre.lhs b/ghc/compiler/profiling/CostCentre.lhs
index 3bed2f8..3309640 100644 (file)
--- 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,