From 4319ec9f159a0911bc0fc30cd9a108f22d1f3e65 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 21 Aug 2007 02:26:45 +0000 Subject: [PATCH] Add NDP-related PrelNames --- compiler/prelude/PrelNames.lhs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index 5602a6c..2d2edb0 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -217,7 +217,8 @@ genericTyConNames :: [Name] genericTyConNames = [crossTyConName, plusTyConName, genUnitTyConName] ndpNames :: [Name] -ndpNames = [ parrayTyConName, paTyConName, closureTyConName +ndpNames = [ parrayTyConName, paTyConName, reprTyConName, embedTyConName + , closureTyConName , mkClosureName, applyClosureName , mkClosurePName, applyClosurePName , lengthPAName, replicatePAName, emptyPAName, packPAName, @@ -693,6 +694,8 @@ checkDotnetResName = varQual dOTNET FSLIT("checkResult") checkDotnetResNam -- NDP stuff parrayTyConName = tcQual nDP_PARRAY FSLIT("PArray") parrayTyConKey paTyConName = tcQual nDP_PARRAY FSLIT("PA") paTyConKey +reprTyConName = tcQual nDP_PARRAY FSLIT("Repr") reprTyConKey +embedTyConName = tcQual nDP_PARRAY FSLIT("Embed") embedTyConKey lengthPAName = varQual nDP_PARRAY FSLIT("lengthPA") lengthPAIdKey replicatePAName = varQual nDP_PARRAY FSLIT("replicatePA") replicatePAIdKey emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAIdKey @@ -886,6 +889,8 @@ stringTyConKey = mkPreludeTyConUnique 134 parrayTyConKey = mkPreludeTyConUnique 135 closureTyConKey = mkPreludeTyConUnique 136 paTyConKey = mkPreludeTyConUnique 137 +reprTyConKey = mkPreludeTyConUnique 138 +embedTyConKey = mkPreludeTyConUnique 139 ---------------- Template Haskell ------------------- -- 1.7.10.4