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

[ghc-hetmet.git] / ghc / compiler / deSugar / DsMonad.lhs

diff --git a/ghc/compiler/deSugar/DsMonad.lhs b/ghc/compiler/deSugar/DsMonad.lhs
index 6d9dc55..2900230 100644 (file)
--- a/ghc/compiler/deSugar/DsMonad.lhs
+++ b/ghc/compiler/deSugar/DsMonad.lhs
@@ -79,7 +79,7 @@ initDs init_us env mod_name action
   where
     module_and_group = (mod_name, grp_name)
     grp_name  = case opt_SccGroup of
-                   Just xx -> xx
+                   Just xx -> _PK_ xx
                    Nothing -> mod_name -- default: module name
 
 thenDs :: DsM a -> (a -> DsM b) -> DsM b