projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add vectorisation-related built-in
[ghc-hetmet.git]
/
compiler
/
prelude
/
PrelNames.lhs
diff --git
a/compiler/prelude/PrelNames.lhs
b/compiler/prelude/PrelNames.lhs
index
60aff55
..
b3194a1
100644
(file)
--- a/
compiler/prelude/PrelNames.lhs
+++ b/
compiler/prelude/PrelNames.lhs
@@
-217,7
+217,7
@@
genericTyConNames :: [Name]
genericTyConNames = [crossTyConName, plusTyConName, genUnitTyConName]
ndpNames :: [Name]
genericTyConNames = [crossTyConName, plusTyConName, genUnitTyConName]
ndpNames :: [Name]
-ndpNames = [ parrayTyConName, paTyConName, preprTyConName
+ndpNames = [ parrayTyConName, paTyConName, preprTyConName, prClassName
, ndpCrossTyConName, ndpPlusTyConName, embedTyConName
, closureTyConName
, mkClosureName, applyClosureName
, ndpCrossTyConName, ndpPlusTyConName, embedTyConName
, closureTyConName
, mkClosureName, applyClosureName
@@
-696,6
+696,7
@@
checkDotnetResName = varQual dOTNET FSLIT("checkResult") checkDotnetResNam
parrayTyConName = tcQual nDP_PARRAY FSLIT("PArray") parrayTyConKey
paTyConName = tcQual nDP_PARRAY FSLIT("PA") paTyConKey
preprTyConName = tcQual nDP_PARRAY FSLIT("PRepr") preprTyConKey
parrayTyConName = tcQual nDP_PARRAY FSLIT("PArray") parrayTyConKey
paTyConName = tcQual nDP_PARRAY FSLIT("PA") paTyConKey
preprTyConName = tcQual nDP_PARRAY FSLIT("PRepr") preprTyConKey
+prClassName = clsQual nDP_PARRAY FSLIT("PR") prClassKey
ndpCrossTyConName = tcQual nDP_PARRAY FSLIT(":*:") ndpCrossTyConKey
ndpPlusTyConName = tcQual nDP_PARRAY FSLIT(":+:") ndpPlusTyConKey
embedTyConName = tcQual nDP_PARRAY FSLIT("Embed") embedTyConKey
ndpCrossTyConName = tcQual nDP_PARRAY FSLIT(":*:") ndpCrossTyConKey
ndpPlusTyConName = tcQual nDP_PARRAY FSLIT(":+:") ndpPlusTyConKey
embedTyConName = tcQual nDP_PARRAY FSLIT("Embed") embedTyConKey
@@
-779,6
+780,8
@@
randomClassKey = mkPreludeClassUnique 31
randomGenClassKey = mkPreludeClassUnique 32
isStringClassKey = mkPreludeClassUnique 33
randomGenClassKey = mkPreludeClassUnique 32
isStringClassKey = mkPreludeClassUnique 33
+
+prClassKey = mkPreludeClassUnique 34
\end{code}
%************************************************************************
\end{code}
%************************************************************************