genericTyConNames = [crossTyConName, plusTyConName, genUnitTyConName]
ndpNames :: [Name]
-ndpNames = [ parrayTyConName, paTyConName, preprTyConName
- , ndpCrossTyConName, ndpPlusTyConName, embedTyConName
+ndpNames = [ parrayTyConName, paTyConName, preprTyConName, prTyConName
+ , parrayIntPrimTyConName
+ , mkPRName
, closureTyConName
, mkClosureName, applyClosureName
, mkClosurePName, applyClosurePName
+ , replicatePAIntPrimName, upToPAIntPrimName
, lengthPAName, replicatePAName, emptyPAName, packPAName,
- combinePAName, intEqPAName ]
+ combinePAName ]
\end{code}
gLA_EXTS = mkBaseModule FSLIT("GHC.Exts")
nDP_PARRAY = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.PArray")
-nDP_UTILS = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Utils")
+nDP_REPR = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Repr")
nDP_CLOSURE = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Closure")
+nDP_PRIM = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Prim")
nDP_INSTANCES = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Instances")
mAIN = mkMainModule_ mAIN_NAME
parrayTyConName = tcQual nDP_PARRAY FSLIT("PArray") parrayTyConKey
paTyConName = tcQual nDP_PARRAY FSLIT("PA") paTyConKey
preprTyConName = tcQual nDP_PARRAY FSLIT("PRepr") preprTyConKey
-ndpCrossTyConName = tcQual nDP_PARRAY FSLIT(":*:") ndpCrossTyConKey
-ndpPlusTyConName = tcQual nDP_PARRAY FSLIT(":+:") ndpPlusTyConKey
-embedTyConName = tcQual nDP_PARRAY FSLIT("Embed") embedTyConKey
+prTyConName = tcQual nDP_PARRAY FSLIT("PR") prTyConKey
+parrayIntPrimTyConName = tcQual nDP_PRIM FSLIT("PArray_Int#")
+ parrayIntPrimTyConKey
+mkPRName = varQual nDP_PARRAY FSLIT("mkPR") mkPRIdKey
+replicatePAIntPrimName = varQual nDP_PRIM FSLIT("replicatePA_Int#")
+ replicatePAIntPrimIdKey
+upToPAIntPrimName = varQual nDP_PRIM FSLIT("upToPA_Int#") upToPAIntPrimIdKey
lengthPAName = varQual nDP_PARRAY FSLIT("lengthPA") lengthPAIdKey
replicatePAName = varQual nDP_PARRAY FSLIT("replicatePA") replicatePAIdKey
emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAIdKey
packPAName = varQual nDP_PARRAY FSLIT("packPA") packPAIdKey
combinePAName = varQual nDP_PARRAY FSLIT("combinePA") combinePAIdKey
-intEqPAName = varQual nDP_UTILS FSLIT("intEqPA") intEqPAIdKey
closureTyConName = tcQual nDP_CLOSURE FSLIT(":->") closureTyConKey
mkClosureName = varQual nDP_CLOSURE FSLIT("mkClosure") mkClosureIdKey
applyClosureName = varQual nDP_CLOSURE FSLIT("$:") applyClosureIdKey
closureTyConKey = mkPreludeTyConUnique 136
paTyConKey = mkPreludeTyConUnique 137
preprTyConKey = mkPreludeTyConUnique 138
-embedTyConKey = mkPreludeTyConUnique 139
-ndpCrossTyConKey = mkPreludeTyConUnique 140
-ndpPlusTyConKey = mkPreludeTyConUnique 141
+prTyConKey = mkPreludeTyConUnique 139
+parrayIntPrimTyConKey = mkPreludeTyConUnique 140
---------------- Template Haskell -------------------
emptyPAIdKey = mkPreludeMiscIdUnique 133
packPAIdKey = mkPreludeMiscIdUnique 134
combinePAIdKey = mkPreludeMiscIdUnique 135
-intEqPAIdKey = mkPreludeMiscIdUnique 136
+mkPRIdKey = mkPreludeMiscIdUnique 136
+replicatePAIntPrimIdKey = mkPreludeMiscIdUnique 137
+upToPAIntPrimIdKey = mkPreludeMiscIdUnique 138
---------------- Template Haskell -------------------
-- USES IdUniques 200-399