[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 (file)
--- 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)