[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 a482b68..3dbdbcd 100644 (file)
--- a/ghc/compiler/basicTypes/Unique.lhs
+++ b/ghc/compiler/basicTypes/Unique.lhs
@@ -114,6 +114,7 @@ module Unique (
        listTyConKey,
        ltDataConKey,
        mainKey, mainPrimIoKey,
+       minusClassOpKey,
        monadClassKey,
        monadPlusClassKey,
        monadZeroClassKey,
@@ -127,6 +128,7 @@ module Unique (
        numClassKey,
        ordClassKey,
        orderingTyConKey,
+       otherwiseIdKey,
        packCStringIdKey,
        parErrorIdKey,
        parIdKey,
@@ -148,6 +150,7 @@ module Unique (
        return2GMPsTyConKey,
        returnIntAndGMPDataConKey,
        returnIntAndGMPTyConKey,
+       returnMClassOpKey,
        runSTIdKey,
        seqIdKey,
        showClassKey,
@@ -192,6 +195,7 @@ module Unique (
        stateTyConKey,
        synchVarPrimTyConKey,
        thenMClassOpKey,
+       toEnumClassOpKey,
        traceIdKey,
        trueDataConKey,
        unpackCString2IdKey,
@@ -658,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
@@ -673,4 +678,8 @@ fromEnumClassOpKey  = mkPreludeMiscIdUnique 65
 
 mainKey                        = mkPreludeMiscIdUnique 66
 mainPrimIoKey          = mkPreludeMiscIdUnique 67
+returnMClassOpKey      = mkPreludeMiscIdUnique 68
+-- Used for minusClassOp                       69
+otherwiseIdKey         = mkPreludeMiscIdUnique 70
+toEnumClassOpKey       = mkPreludeMiscIdUnique 71
 \end{code}