[project @ 1996-04-10 18:10:47 by partain]

[ghc-hetmet.git] / ghc / compiler / profiling / SCCauto.lhs

diff --git a/ghc/compiler/profiling/SCCauto.lhs b/ghc/compiler/profiling/SCCauto.lhs
index 6f6b12b..caa46c2 100644 (file)
--- a/ghc/compiler/profiling/SCCauto.lhs
+++ b/ghc/compiler/profiling/SCCauto.lhs
@@ -47,7 +47,7 @@ addAutoCostCentres mod_name binds
 
     grp_name
       = case opt_SccGroup of
-         Just xx -> xx
+         Just xx -> _PK_ xx
          Nothing -> mod_name   -- default: module name
 
     -----------------------------