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 gHC__, pRELUDE, pREL_BASE,
18 pREL_READ , pREL_NUM, pREL_LIST,
19 pREL_TUP , pACKED_STRING, cONC_BASE,
20 iO_BASE , mONAD, rATIO, iX,
21 sT_BASE , aRR_BASE, fOREIGN, mAIN,
25 CHK_Ubiq() -- debugging consistency check
26 import UniqSet ( UniqSet(..), mkUniqSet, elementOfUniqSet )
30 Predicate used by RnIface to decide whether or not to
31 append a special suffix for prelude modules:
34 preludeNames :: UniqSet FAST_STRING
39 , pREL_READ , pREL_NUM
40 , pREL_LIST , pREL_TUP
41 , pACKED_STRING , cONC_BASE
51 gHC__ = SLIT("GHC") -- Primitive types and values
53 pRELUDE = SLIT("Prelude")
54 pREL_BASE = SLIT("PrelBase")
55 pREL_READ = SLIT("PrelRead")
56 pREL_NUM = SLIT("PrelNum")
57 pREL_LIST = SLIT("PrelList")
58 pREL_TUP = SLIT("PrelTup")
59 pACKED_STRING= SLIT("PackedString")
60 cONC_BASE = SLIT("ConcBase")
61 iO_BASE = SLIT("IOBase")
65 sT_BASE = SLIT("STBase")
66 aRR_BASE = SLIT("ArrBase")
67 fOREIGN = SLIT("Foreign")
70 gHC_MAIN = SLIT("GHCmain")
71 gHC_ERR = SLIT("GHCerr")