From: sof <unknown>
Date: Sun, 8 Nov 1998 17:07:30 +0000 (+0000)
Subject: [project @ 1998-11-08 17:07:30 by sof]
X-Git-Tag: Approx_2487_patches~220
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8a6fc891c27e3762b3cb47cf16f9c79d029710dc;p=ghc-hetmet.git

[project @ 1998-11-08 17:07:30 by sof]
Added ioOkDataCon_NAME
---

diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 8a2b746..b936b71 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -30,7 +30,7 @@ module PrelInfo (
 	monadZeroClass_RDR, enumClass_RDR, evalClass_RDR, ordClass_RDR,
 	ioDataCon_RDR, ioOkDataCon_RDR,
 
-	main_NAME, allClass_NAME, ioTyCon_NAME,
+	main_NAME, allClass_NAME, ioTyCon_NAME, ioOkDataCon_NAME,
 
 	needsDataDeclCtxtClassKeys, cCallishClassKeys, cCallishTyKeys, isNoDictClass,
 	isNumericClass, isStandardClass, isCcallishClass, isCreturnableClass
@@ -251,17 +251,17 @@ mkKnownKeyGlobal (Qual mod occ hif, uniq)
 
 allClass_NAME    = mkKnownKeyGlobal (allClass_RDR,   allClassKey)
 ioTyCon_NAME	 = mkKnownKeyGlobal (ioTyCon_RDR,    ioTyConKey)
+ioOkDataCon_NAME = mkKnownKeyGlobal (ioOkDataCon_RDR, ioOkDataConKey)
 main_NAME	 = mkKnownKeyGlobal (main_RDR,	     mainKey)
 
 knownKeyNames :: [Name]
 knownKeyNames
-  = [main_NAME, allClass_NAME, ioTyCon_NAME]
+  = [main_NAME, allClass_NAME, ioTyCon_NAME, ioOkDataCon_NAME]
     ++
     map mkKnownKeyGlobal
     [
 	-- Type constructors (synonyms especially)
-      (ioOkDataCon_RDR,    ioOkDataConKey)
-    , (orderingTyCon_RDR,  orderingTyConKey)
+      (orderingTyCon_RDR,  orderingTyConKey)
     , (rationalTyCon_RDR,  rationalTyConKey)
     , (ratioDataCon_RDR,   ratioDataConKey)
     , (ratioTyCon_RDR,     ratioTyConKey)