Commit 8a6fc891 authored by sof's avatar sof
Browse files

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

Added ioOkDataCon_NAME
parent 77d598b1
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment