[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 51ea249..9b9cbf1 100644 (file)
--- a/ghc/compiler/simplStg/SimplStg.lhs
+++ b/ghc/compiler/simplStg/SimplStg.lhs
@@ -14,7 +14,7 @@ import StgSyn
 import StgUtils
 
 import LambdaLift      ( liftProgram )
-import Outputable      ( isLocallyDefined )
+import Name            ( isLocallyDefined )
 import SCCfinal                ( stgMassageForProfiling )
 import SatStgRhs       ( satStgRhs )
 import StgLint         ( lintStgBindings )
@@ -33,7 +33,7 @@ import Id             ( nullIdEnv, lookupIdEnv, addOneToIdEnv,
                        )
 import MainMonad       ( writeMn, thenMn_, thenMn, returnMn, MainIO(..) )
 import Maybes          ( maybeToBool )
-import Outputable      ( isExported )
+import Name            ( isExported )
 import PprType         ( GenType{-instance Outputable-} )
 import Pretty          ( ppShow, ppAbove, ppAboves, ppStr )
 import UniqSupply      ( splitUniqSupply )
@@ -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
 
     -------------