From 8a6fc891c27e3762b3cb47cf16f9c79d029710dc Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 8 Nov 1998 17:07:30 +0000
Subject: [PATCH] [project @ 1998-11-08 17:07:30 by sof] Added ioOkDataCon_NAME
---
ghc/compiler/prelude/PrelInfo.lhs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 8a2b746705b7..b936b7181b3b 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)
--
GitLab