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-04-29 14:03:38 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
types
/
Generics.lhs
diff --git
a/ghc/compiler/types/Generics.lhs
b/ghc/compiler/types/Generics.lhs
index
744b667
..
b868c2a
100644
(file)
--- a/
ghc/compiler/types/Generics.lhs
+++ b/
ghc/compiler/types/Generics.lhs
@@
-39,6
+39,7
@@
import SrcLoc ( builtinSrcLoc )
import Unique ( Unique, builtinUniques, mkBuiltinUnique )
import Util ( takeList, dropList )
import Outputable
import Unique ( Unique, builtinUniques, mkBuiltinUnique )
import Util ( takeList, dropList )
import Outputable
+import FastString
#include "HsVersions.h"
\end{code}
#include "HsVersions.h"
\end{code}
@@
-554,7
+555,7
@@
bimapTuple eps
-------------------
genericNames :: [Name]
-------------------
genericNames :: [Name]
-genericNames = [mkSystemName (mkBuiltinUnique i) (_PK_ ('g' : show i)) | i <- [1..]]
+genericNames = [mkSystemName (mkBuiltinUnique i) (mkFastString ('g' : show i)) | i <- [1..]]
(g1:g2:g3:_) = genericNames
mk_hs_lam pats body = HsPar (HsLam (mkSimpleMatch pats body placeHolderType builtinSrcLoc))
(g1:g2:g3:_) = genericNames
mk_hs_lam pats body = HsPar (HsLam (mkSimpleMatch pats body placeHolderType builtinSrcLoc))