X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2FTysPrim.lhs;fp=ghc%2Fcompiler%2Fprelude%2FTysPrim.lhs;h=df43fafed47df491c549b437ff2582a531ec3bab;hb=1553c7788e7f663bfc55813158325d695a21a229;hp=a0770af428bc261764918329b968e78299c75115;hpb=057e3f0d571845f91178cb0e416566e063696425;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/TysPrim.lhs b/ghc/compiler/prelude/TysPrim.lhs
index a0770af..df43faf 100644
--- a/ghc/compiler/prelude/TysPrim.lhs
+++ b/ghc/compiler/prelude/TysPrim.lhs
@@ -50,7 +50,7 @@ module TysPrim(
 #include "HsVersions.h"
 
 import Var		( TyVar, mkTyVar )
-import Name		( Name, mkLocalName )
+import Name		( Name, mkInternalName )
 import OccName		( mkVarOcc )
 import PrimRep		( PrimRep(..) )
 import TyCon		( TyCon, ArgVrcs, mkPrimTyCon, mkLiftedPrimTyCon )
@@ -115,7 +115,7 @@ alphaTyVars is a list of type variables for use in templates:
 
 \begin{code}
 tyVarList :: Kind -> [TyVar]
-tyVarList kind = [ mkTyVar (mkLocalName (mkAlphaTyVarUnique u) 
+tyVarList kind = [ mkTyVar (mkInternalName (mkAlphaTyVarUnique u) 
 				(mkVarOcc (mkFastString name))
 			 	noSrcLoc) kind
 	         | u <- [2..],