projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
176b587
)
Add emptyPA to PrelNames
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 25 Jul 2007 03:02:09 +0000
(
03:02
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 25 Jul 2007 03:02:09 +0000
(
03:02
+0000)
compiler/prelude/PrelNames.lhs
patch
|
blob
|
history
diff --git
a/compiler/prelude/PrelNames.lhs
b/compiler/prelude/PrelNames.lhs
index
f66b319
..
282765b
100644
(file)
--- a/
compiler/prelude/PrelNames.lhs
+++ b/
compiler/prelude/PrelNames.lhs
@@
-220,7
+220,7
@@
ndpNames :: [Name]
ndpNames = [ parrayTyConName, paClassName, closureTyConName
, mkClosureName, applyClosureName
, mkClosurePName, applyClosurePName
ndpNames = [ parrayTyConName, paClassName, closureTyConName
, mkClosureName, applyClosureName
, mkClosurePName, applyClosurePName
- , lengthPAName, replicatePAName ]
+ , lengthPAName, replicatePAName, emptyPAName ]
\end{code}
\end{code}
@@
-692,6
+692,7
@@
parrayTyConName = tcQual nDP_PARRAY FSLIT("PArray") parrayTyConKey
paClassName = clsQual nDP_PARRAY FSLIT("PA") paClassKey
lengthPAName = methName nDP_PARRAY FSLIT("lengthPA") lengthPAClassOpKey
replicatePAName = methName nDP_PARRAY FSLIT("replicatePA") replicatePAClassOpKey
paClassName = clsQual nDP_PARRAY FSLIT("PA") paClassKey
lengthPAName = methName nDP_PARRAY FSLIT("lengthPA") lengthPAClassOpKey
replicatePAName = methName nDP_PARRAY FSLIT("replicatePA") replicatePAClassOpKey
+emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAClassOpKey
closureTyConName = tcQual nDP_CLOSURE FSLIT(":->") closureTyConKey
mkClosureName = varQual nDP_CLOSURE FSLIT("mkClosure") mkClosureIdKey
applyClosureName = varQual nDP_CLOSURE FSLIT("$:") applyClosureIdKey
closureTyConName = tcQual nDP_CLOSURE FSLIT(":->") closureTyConKey
mkClosureName = varQual nDP_CLOSURE FSLIT("mkClosure") mkClosureIdKey
applyClosureName = varQual nDP_CLOSURE FSLIT("$:") applyClosureIdKey
@@
-1069,6
+1070,7
@@
applyClosurePIdKey = mkPreludeMiscIdUnique 129
closurePAIdKey = mkPreludeMiscIdUnique 130
lengthPAClassOpKey = mkPreludeMiscIdUnique 131
replicatePAClassOpKey = mkPreludeMiscIdUnique 132
closurePAIdKey = mkPreludeMiscIdUnique 130
lengthPAClassOpKey = mkPreludeMiscIdUnique 131
replicatePAClassOpKey = mkPreludeMiscIdUnique 132
+emptyPAClassOpKey = mkPreludeMiscIdUnique 133
---------------- Template Haskell -------------------
-- USES IdUniques 200-399
---------------- Template Haskell -------------------
-- USES IdUniques 200-399