ndpNames = [ parrayTyConName, paClassName, closureTyConName
, mkClosureName, applyClosureName
, mkClosurePName, applyClosurePName
- , lengthPAName, replicatePAName ]
+ , lengthPAName, replicatePAName, emptyPAName ]
\end{code}
nDP_PARRAY = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.PArray")
nDP_CLOSURE = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Closure")
+nDP_INTERFACE_NAME = mkModuleNameFS FSLIT("Data.Array.Parallel.Lifted")
+nDP_BUILTIN = mkModuleNameFS FSLIT(":NDP")
mAIN = mkMainModule_ mAIN_NAME
rOOT_MAIN = mkMainModule FSLIT(":Main") -- Root module for initialisation
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
closurePAIdKey = mkPreludeMiscIdUnique 130
lengthPAClassOpKey = mkPreludeMiscIdUnique 131
replicatePAClassOpKey = mkPreludeMiscIdUnique 132
+emptyPAClassOpKey = mkPreludeMiscIdUnique 133
---------------- Template Haskell -------------------
-- USES IdUniques 200-399