projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-03-14 15:27:15 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
prelude
/
TysPrim.lhs
diff --git
a/ghc/compiler/prelude/TysPrim.lhs
b/ghc/compiler/prelude/TysPrim.lhs
index
a0770af
..
df43faf
100644
(file)
--- 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 )
#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 )
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]
\begin{code}
tyVarList :: Kind -> [TyVar]
-tyVarList kind = [ mkTyVar (mkLocalName (mkAlphaTyVarUnique u)
+tyVarList kind = [ mkTyVar (mkInternalName (mkAlphaTyVarUnique u)
(mkVarOcc (mkFastString name))
noSrcLoc) kind
| u <- [2..],
(mkVarOcc (mkFastString name))
noSrcLoc) kind
| u <- [2..],