diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-07 05:10:52 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-07 05:10:52 +0000 |
| commit | fe5405d4b97a521e32899f6dc2153c556723ca62 (patch) | |
| tree | 0c48469cf2b64a3d0fd2aadb669fc421fba67751 /compiler/prelude | |
| parent | 5b2d14201d66e280368f37c922d164a356f18107 (diff) | |
| download | haskell-fe5405d4b97a521e32899f6dc2153c556723ca62.tar.gz | |
PA is now an explicit record instead of a typeclass
Diffstat (limited to 'compiler/prelude')
| -rw-r--r-- | compiler/prelude/PrelNames.lhs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/prelude/PrelNames.lhs b/compiler/prelude/PrelNames.lhs index c09d73de2f..5bbd9947de 100644 --- a/compiler/prelude/PrelNames.lhs +++ b/compiler/prelude/PrelNames.lhs @@ -217,7 +217,7 @@ genericTyConNames :: [Name] genericTyConNames = [crossTyConName, plusTyConName, genUnitTyConName] ndpNames :: [Name] -ndpNames = [ parrayTyConName, paClassName, closureTyConName +ndpNames = [ parrayTyConName, paTyConName, closureTyConName , mkClosureName, applyClosureName , mkClosurePName, applyClosurePName , lengthPAName, replicatePAName, emptyPAName ] @@ -691,7 +691,7 @@ checkDotnetResName = varQual dOTNET FSLIT("checkResult") checkDotnetResNam -- NDP stuff parrayTyConName = tcQual nDP_PARRAY FSLIT("PArray") parrayTyConKey -paClassName = clsQual nDP_PARRAY FSLIT("PA") paClassKey +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 @@ -769,8 +769,6 @@ randomClassKey = mkPreludeClassUnique 31 randomGenClassKey = mkPreludeClassUnique 32 isStringClassKey = mkPreludeClassUnique 33 - -paClassKey = mkPreludeClassUnique 34 \end{code} %************************************************************************ @@ -883,6 +881,7 @@ stringTyConKey = mkPreludeTyConUnique 134 parrayTyConKey = mkPreludeTyConUnique 135 closureTyConKey = mkPreludeTyConUnique 136 +paTyConKey = mkPreludeTyConUnique 137 ---------------- Template Haskell ------------------- |