[project @ 1997-03-17 20:34:25 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Unique.lhs

diff --git a/ghc/compiler/basicTypes/Unique.lhs b/ghc/compiler/basicTypes/Unique.lhs
index 104953a..3dbdbcd 100644 (file)
--- a/ghc/compiler/basicTypes/Unique.lhs
+++ b/ghc/compiler/basicTypes/Unique.lhs
@@ -87,6 +87,7 @@ module Unique (
        foreignObjTyConKey,
        forkIdKey,
        fractionalClassKey,
+       fromEnumClassOpKey,
        fromIntClassOpKey,
        fromIntegerClassOpKey,
        fromRationalClassOpKey,
@@ -112,6 +113,8 @@ module Unique (
        liftTyConKey,
        listTyConKey,
        ltDataConKey,
+       mainKey, mainPrimIoKey,
+       minusClassOpKey,
        monadClassKey,
        monadPlusClassKey,
        monadZeroClassKey,
@@ -125,6 +128,7 @@ module Unique (
        numClassKey,
        ordClassKey,
        orderingTyConKey,
+       otherwiseIdKey,
        packCStringIdKey,
        parErrorIdKey,
        parIdKey,
@@ -146,6 +150,7 @@ module Unique (
        return2GMPsTyConKey,
        returnIntAndGMPDataConKey,
        returnIntAndGMPTyConKey,
+       returnMClassOpKey,
        runSTIdKey,
        seqIdKey,
        showClassKey,
@@ -190,6 +195,7 @@ module Unique (
        stateTyConKey,
        synchVarPrimTyConKey,
        thenMClassOpKey,
+       toEnumClassOpKey,
        traceIdKey,
        trueDataConKey,
        unpackCString2IdKey,
@@ -212,6 +218,7 @@ module Unique (
        , parAtRelIdKey
        , parGlobalIdKey
        , parLocalIdKey
+       , unboundKey
     ) where
 
 import PreludeGlaST
@@ -655,6 +662,7 @@ to conjure them up during type checking.
 \begin{code}                                     
 fromIntClassOpKey      = mkPreludeMiscIdUnique 53
 fromIntegerClassOpKey  = mkPreludeMiscIdUnique 54
+minusClassOpKey                = mkPreludeMiscIdUnique 69
 fromRationalClassOpKey = mkPreludeMiscIdUnique 55
 enumFromClassOpKey     = mkPreludeMiscIdUnique 56
 enumFromThenClassOpKey = mkPreludeMiscIdUnique 57
@@ -664,4 +672,14 @@ eqClassOpKey               = mkPreludeMiscIdUnique 60
 geClassOpKey           = mkPreludeMiscIdUnique 61
 zeroClassOpKey         = mkPreludeMiscIdUnique 62
 thenMClassOpKey                = mkPreludeMiscIdUnique 63 -- (>>=)
+unboundKey             = mkPreludeMiscIdUnique 64      -- Just a place holder for unbound
+                                                       -- variables produced by the renamer
+fromEnumClassOpKey     = mkPreludeMiscIdUnique 65
+
+mainKey                        = mkPreludeMiscIdUnique 66
+mainPrimIoKey          = mkPreludeMiscIdUnique 67
+returnMClassOpKey      = mkPreludeMiscIdUnique 68
+-- Used for minusClassOp                       69
+otherwiseIdKey         = mkPreludeMiscIdUnique 70
+toEnumClassOpKey       = mkPreludeMiscIdUnique 71
 \end{code}