ndpNames = [ parrayTyConName, paTyConName, closureTyConName
, mkClosureName, applyClosureName
, mkClosurePName, applyClosurePName
ndpNames = [ parrayTyConName, paTyConName, closureTyConName
, mkClosureName, applyClosureName
, mkClosurePName, applyClosurePName
- , lengthPAName, replicatePAName, emptyPAName ]
+ , lengthPAName, replicatePAName, emptyPAName, packPAName,
+ combinePAName, intEqPAName ]
gLA_EXTS = mkBaseModule FSLIT("GHC.Exts")
nDP_PARRAY = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.PArray")
gLA_EXTS = mkBaseModule FSLIT("GHC.Exts")
nDP_PARRAY = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.PArray")
mAIN = mkMainModule_ mAIN_NAME
rOOT_MAIN = mkMainModule FSLIT(":Main") -- Root module for initialisation
mAIN = mkMainModule_ mAIN_NAME
rOOT_MAIN = mkMainModule FSLIT(":Main") -- Root module for initialisation
lengthPAName = varQual nDP_PARRAY FSLIT("lengthPA") lengthPAIdKey
replicatePAName = varQual nDP_PARRAY FSLIT("replicatePA") replicatePAIdKey
emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAIdKey
lengthPAName = varQual nDP_PARRAY FSLIT("lengthPA") lengthPAIdKey
replicatePAName = varQual nDP_PARRAY FSLIT("replicatePA") replicatePAIdKey
emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAIdKey
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
lengthPAIdKey = mkPreludeMiscIdUnique 131
replicatePAIdKey = mkPreludeMiscIdUnique 132
emptyPAIdKey = mkPreludeMiscIdUnique 133
lengthPAIdKey = mkPreludeMiscIdUnique 131
replicatePAIdKey = mkPreludeMiscIdUnique 132
emptyPAIdKey = mkPreludeMiscIdUnique 133