From: Roman Leshchinskiy Date: Wed, 8 Aug 2007 06:48:34 +0000 (+0000) Subject: PA functions are no longer methods X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c7852c6f0e7d22c5dc9b7171d4e6f36a12616990;p=ghc-hetmet.git PA functions are no longer methods --- diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index 5bbd994..1f2d901 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -692,9 +692,9 @@ checkDotnetResName = varQual dOTNET FSLIT("checkResult") checkDotnetResNam -- NDP stuff parrayTyConName = tcQual nDP_PARRAY FSLIT("PArray") parrayTyConKey paTyConName = tcQual nDP_PARRAY FSLIT("PA") paTyConKey -lengthPAName = methName nDP_PARRAY FSLIT("lengthPA") lengthPAClassOpKey -replicatePAName = methName nDP_PARRAY FSLIT("replicatePA") replicatePAClassOpKey -emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAClassOpKey +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 @@ -1069,9 +1069,9 @@ applyClosureIdKey = mkPreludeMiscIdUnique 127 mkClosurePIdKey = mkPreludeMiscIdUnique 128 applyClosurePIdKey = mkPreludeMiscIdUnique 129 closurePAIdKey = mkPreludeMiscIdUnique 130 -lengthPAClassOpKey = mkPreludeMiscIdUnique 131 -replicatePAClassOpKey = mkPreludeMiscIdUnique 132 -emptyPAClassOpKey = mkPreludeMiscIdUnique 133 +lengthPAIdKey = mkPreludeMiscIdUnique 131 +replicatePAIdKey = mkPreludeMiscIdUnique 132 +emptyPAIdKey = mkPreludeMiscIdUnique 133 ---------------- Template Haskell ------------------- -- USES IdUniques 200-399