From 351a0212a9b4275f8cec2c5b699b1ab995e2e6e3 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Wed, 8 Aug 2007 06:55:59 +0000 Subject: [PATCH] Add more NDP functions to PrelNames --- compiler/prelude/PrelNames.lhs | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index 1f2d901..f297d89 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -220,7 +220,8 @@ ndpNames :: [Name] ndpNames = [ parrayTyConName, paTyConName, closureTyConName , mkClosureName, applyClosureName , mkClosurePName, applyClosurePName - , lengthPAName, replicatePAName, emptyPAName ] + , lengthPAName, replicatePAName, emptyPAName, packPAName, + combinePAName, intEqPAName ] \end{code} @@ -273,6 +274,7 @@ rANDOM = mkBaseModule FSLIT("System.Random") 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_CLOSURE = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Closure") nDP_INTERFACE_NAME = mkModuleNameFS FSLIT("Data.Array.Parallel.Lifted") nDP_BUILTIN = mkModuleNameFS FSLIT(":NDP") @@ -695,6 +697,9 @@ paTyConName = tcQual nDP_PARRAY FSLIT("PA") paTyConKey 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 @@ -1072,6 +1077,9 @@ closurePAIdKey = mkPreludeMiscIdUnique 130 lengthPAIdKey = mkPreludeMiscIdUnique 131 replicatePAIdKey = mkPreludeMiscIdUnique 132 emptyPAIdKey = mkPreludeMiscIdUnique 133 +packPAIdKey = mkPreludeMiscIdUnique 134 +combinePAIdKey = mkPreludeMiscIdUnique 135 +intEqPAIdKey = mkPreludeMiscIdUnique 136 ---------------- Template Haskell ------------------- -- USES IdUniques 200-399 -- 1.7.10.4