0ae313033f185cdbaef464161cfdd239335c0671
[ghc-hetmet.git] / ghc / compiler / prelude / PrelMods.lhs
1 %
2 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1996
3 %
4 \section[PrelMods]{Definitions of prelude modules}
5
6 The strings identify built-in prelude modules.  They are
7 defined here so as to avod 
8
9 [oh dear, looks like the recursive module monster caught up with
10  and gobbled whoever was writing the above :-) -- SOF ]
11
12 \begin{code}
13 module PrelMods
14         (
15         pREL_GHC, pRELUDE, mONAD, rATIO, iX, mAIN, pREL_MAIN, pREL_ERR,
16         pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP, pREL_ADDR, pREL_READ,
17         pREL_PACK, pREL_CONC, pREL_IO_BASE, pREL_ST, pREL_ARR, pREL_FOREIGN,
18         pREL_CCALL,
19
20         iNT, wORD
21         ) where
22
23 #include "HsVersions.h"
24
25 import BasicTypes( Module )
26 \end{code}
27
28 \begin{code}
29 pREL_GHC, pRELUDE, mONAD, rATIO, iX, mAIN, pREL_MAIN, pREL_ERR      :: Module
30 pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP, pREL_ADDR, pREL_READ      :: Module   
31 pREL_PACK, pREL_CONC, pREL_IO_BASE, pREL_ST, pREL_ARR, pREL_FOREIGN :: Module   
32
33
34 pRELUDE      = SLIT("Prelude")
35 pREL_GHC     = SLIT("PrelGHC")     -- Primitive types and values
36 pREL_BASE    = SLIT("PrelBase")
37 pREL_READ    = SLIT("PrelRead")
38 pREL_NUM     = SLIT("PrelNum")
39 pREL_LIST    = SLIT("PrelList")
40 pREL_TUP     = SLIT("PrelTup")
41 pREL_PACK    = SLIT("PrelPack")
42 pREL_CONC    = SLIT("PrelConc")
43 pREL_IO_BASE = SLIT("PrelIOBase")
44 pREL_ST      = SLIT("PrelST")
45 pREL_ARR     = SLIT("PrelArr")
46 pREL_FOREIGN = SLIT("PrelForeign")
47 pREL_CCALL   = SLIT("PrelCCall")
48 pREL_ADDR    = SLIT("PrelAddr")
49 pREL_ERR     = SLIT("PrelErr")
50
51 mONAD        = SLIT("Monad")
52 rATIO        = SLIT("Ratio")
53 iX           = SLIT("Ix")
54
55 pREL_MAIN    = SLIT("PrelMain")
56 mAIN         = SLIT("Main")
57
58 iNT, wORD   :: Module
59
60 iNT          = SLIT("Int")
61 wORD         = SLIT("Word")
62
63 \end{code}