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

[ghc-hetmet.git] / ghc / compiler / simplStg / SimplStg.lhs

diff --git a/ghc/compiler/simplStg/SimplStg.lhs b/ghc/compiler/simplStg/SimplStg.lhs
index 48ac2b6..9b9cbf1 100644 (file)
--- a/ghc/compiler/simplStg/SimplStg.lhs
+++ b/ghc/compiler/simplStg/SimplStg.lhs
@@ -112,10 +112,10 @@ stg2stg stg_todos module_name ppr_style us binds
     (do_unlocalising, unlocal_tag)
       = case (opt_EnsureSplittableC) of
              Nothing  -> (False, panic "tag")
-             Just tag -> (True,  tag)
+             Just tag -> (True,  _PK_ tag)
 
     grp_name  = case (opt_SccGroup) of
-                 Just xx -> xx
+                 Just xx -> _PK_ xx
                  Nothing -> module_name -- default: module name
 
     -------------