2 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1996
4 \section[PrelMods]{Definitions of prelude modules}
6 The strings identify built-in prelude modules. They are
7 defined here so as to avod
9 [oh dear, look like the recursive module monster caught up and
10 gobbled whoever was writing the above :-) -- SOF ]
13 #include "HsVersions.h"
17 isPreludeModule, -- :: Module -> Bool
19 gHC__, pRELUDE, pREL_BASE,
20 pREL_READ , pREL_NUM, pREL_LIST,
21 pREL_TUP , pACKED_STRING, cONC_BASE,
22 iO_BASE , mONAD, rATIO, iX,
23 sT_BASE , aRR_BASE, fOREIGN, mAIN,
27 CHK_Ubiq() -- debugging consistency check
28 import UniqSet ( UniqSet(..), mkUniqSet, elementOfUniqSet )
32 Predicate used by RnIface to decide whether or not to
33 append a special suffix for prelude modules:
36 isPreludeModule :: Module -> Bool
37 isPreludeModule mod = mod `elementOfUniqSet` preludeNames
39 preludeNames :: UniqSet FAST_STRING
44 , pREL_READ , pREL_NUM
45 , pREL_LIST , pREL_TUP
46 , pACKED_STRING , cONC_BASE
56 gHC__ = SLIT("GHC") -- Primitive types and values
58 pRELUDE = SLIT("Prelude")
59 pREL_BASE = SLIT("PrelBase")
60 pREL_READ = SLIT("PrelRead")
61 pREL_NUM = SLIT("PrelNum")
62 pREL_LIST = SLIT("PrelList")
63 pREL_TUP = SLIT("PrelTup")
64 pACKED_STRING= SLIT("PackedString")
65 cONC_BASE = SLIT("ConcBase")
66 iO_BASE = SLIT("IOBase")
70 sT_BASE = SLIT("STBase")
71 aRR_BASE = SLIT("ArrBase")
72 fOREIGN = SLIT("Foreign")
75 gHC_MAIN = SLIT("GHCmain")
76 gHC_ERR = SLIT("GHCerr")