X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FUnique.lhs;h=3dbdbcd8873c38c0ede9f8e1edc82e19881693c3;hb=2494407a750053daa61718fac371487d04818e57;hp=a482b689d747fe15de5fdb1107aa1410017eb69e;hpb=8de16184643ea3c2f9f30b5eaed18db6ef247760;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/Unique.lhs b/ghc/compiler/basicTypes/Unique.lhs
index a482b68..3dbdbcd 100644
--- 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}