[project @ 2000-10-12 14:41:15 by simonmar]

[ghc-hetmet.git] / ghc / compiler / prelude / TysPrim.lhs

diff --git a/ghc/compiler/prelude/TysPrim.lhs b/ghc/compiler/prelude/TysPrim.lhs
index 8b96d6e..71b69ba 100644 (file)
--- a/ghc/compiler/prelude/TysPrim.lhs
+++ b/ghc/compiler/prelude/TysPrim.lhs
@@ -49,15 +49,15 @@ module TysPrim(
 #include "HsVersions.h"
 
 import Var             ( TyVar, mkSysTyVar )
-import Name            ( mkWiredInTyConName )
-import OccName         ( mkOccFS, tcName )
+import OccName         ( tcName )
 import PrimRep         ( PrimRep(..), isFollowableRep )
 import TyCon           ( mkPrimTyCon, TyCon, ArgVrcs )
-import Type            ( Type, 
-                         mkTyConApp, mkTyConTy, mkTyVarTys, mkTyVarTy,
+import Type            ( mkTyConApp, mkTyConTy, mkTyVarTys, mkTyVarTy,
                          unboxedTypeKind, boxedTypeKind, openTypeKind, mkArrowKinds
                        )
 import Unique          ( Unique, mkAlphaTyVarUnique )
+import Name            ( mkKnownKeyGlobal )
+import RdrName         ( mkPreludeQual )
 import PrelNames
 import Outputable
 \end{code}
@@ -151,7 +151,7 @@ pcPrimTyCon :: Unique{-TyConKey-} -> FAST_STRING -> Int -> ArgVrcs -> PrimRep ->
 pcPrimTyCon key str arity arg_vrcs rep
   = the_tycon
   where
-    name      = mkWiredInTyConName key pREL_GHC (mkOccFS tcName str) the_tycon
+    name      = mkKnownKeyGlobal (mkPreludeQual tcName pREL_GHC_Name str) key
     the_tycon = mkPrimTyCon name kind arity arg_vrcs rep
     kind      = mkArrowKinds (take arity (repeat boxedTypeKind)) result_kind
     result_kind | isFollowableRep rep = boxedTypeKind  -- Represented by a GC-ish ptr