X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fprelude%2FPrelNames.lhs;h=98392906af025bbdbebde02ca8a85048f9c767d3;hb=a52f14894e48d47e62b5b33f7d7f4b3f2cc88a79;hp=b3194a102c5932ca5d12d65abad98ac355d06cf7;hpb=c26787dd0e3e0e6859fcd63e2c92278451e160dc;p=ghc-hetmet.git diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index b3194a1..9839290 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -217,8 +217,8 @@ genericTyConNames :: [Name] genericTyConNames = [crossTyConName, plusTyConName, genUnitTyConName] ndpNames :: [Name] -ndpNames = [ parrayTyConName, paTyConName, preprTyConName, prClassName - , ndpCrossTyConName, ndpPlusTyConName, embedTyConName +ndpNames = [ parrayTyConName, paTyConName, preprTyConName, prTyConName + , embedTyConName , closureTyConName , mkClosureName, applyClosureName , mkClosurePName, applyClosurePName @@ -276,6 +276,7 @@ rANDOM = mkBaseModule FSLIT("System.Random") gLA_EXTS = mkBaseModule FSLIT("GHC.Exts") nDP_PARRAY = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.PArray") +nDP_REPR = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Repr") nDP_UTILS = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Utils") nDP_CLOSURE = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Closure") nDP_INSTANCES = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Instances") @@ -696,10 +697,8 @@ 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 -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 +prTyConName = clsQual nDP_PARRAY FSLIT("PR") prTyConKey +embedTyConName = tcQual nDP_REPR FSLIT("Embed") embedTyConKey lengthPAName = varQual nDP_PARRAY FSLIT("lengthPA") lengthPAIdKey replicatePAName = varQual nDP_PARRAY FSLIT("replicatePA") replicatePAIdKey emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAIdKey @@ -780,8 +779,6 @@ randomClassKey = mkPreludeClassUnique 31 randomGenClassKey = mkPreludeClassUnique 32 isStringClassKey = mkPreludeClassUnique 33 - -prClassKey = mkPreludeClassUnique 34 \end{code} %************************************************************************ @@ -897,8 +894,7 @@ closureTyConKey = mkPreludeTyConUnique 136 paTyConKey = mkPreludeTyConUnique 137 preprTyConKey = mkPreludeTyConUnique 138 embedTyConKey = mkPreludeTyConUnique 139 -ndpCrossTyConKey = mkPreludeTyConUnique 140 -ndpPlusTyConKey = mkPreludeTyConUnique 141 +prTyConKey = mkPreludeTyConUnique 140 ---------------- Template Haskell -------------------