[project @ 1998-02-02 17:27:26 by simonm]

[ghc-hetmet.git] / ghc / compiler / types / TyCon.lhs

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index 530af85..a2048a5 100644 (file)
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -53,7 +53,7 @@ import Maybes
 import Name            ( Name, nameUnique, mkWiredInTyConName, NamedThing(getName) )
 import Unique          ( Unique, funTyConKey, Uniquable(..) )
 import PrimRep         ( PrimRep(..), isFollowableRep )
-import PrelMods                ( gHC__, pREL_TUP, pREL_BASE )
+import PrelMods                ( pREL_GHC, pREL_TUP, pREL_BASE )
 import Lex             ( mkTupNameStr )
 import SrcLoc          ( SrcLoc, mkBuiltinSrcLoc )
 import Util            ( nOfThem, isIn )
@@ -122,7 +122,7 @@ data TyCon
 
 \begin{code}
 mkFunTyCon     = FunTyCon
-mkFunTyConName = mkWiredInTyConName funTyConKey gHC__ SLIT("->") FunTyCon
+mkFunTyConName = mkWiredInTyConName funTyConKey pREL_GHC SLIT("->") FunTyCon
 
 mkSpecTyCon  = SpecTyCon
 mkTupleTyCon = TupleTyCon