[project @ 1998-01-08 18:03:08 by simonm]
[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          gHC__, pRELUDE, pREL_BASE,
16          pREL_READ , pREL_NUM, pREL_LIST,
17          pREL_TUP  , pACKED_STRING, cONC_BASE,
18          iO_BASE   , eRROR, mONAD, rATIO, iX,
19          sT_BASE   , aRR_BASE, fOREIGN, mAIN,
20          gHC_MAIN  , gHC_ERR,
21          cCALL     , aDDR
22         ) where
23
24 #include "HsVersions.h"
25
26 import BasicTypes( Module )
27 \end{code}
28
29 \begin{code}
30 gHC__, pRELUDE, pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP :: Module
31 pACKED_STRING, cONC_BASE, iO_BASE, mONAD, rATIO, iX      :: Module
32 sT_BASE, aRR_BASE, fOREIGN, mAIN, gHC_MAIN, gHC_ERR      :: Module      
33
34 gHC__        = SLIT("GHC")         -- Primitive types and values
35
36 pRELUDE      = SLIT("Prelude")
37 pREL_BASE    = SLIT("PrelBase")
38 pREL_READ    = SLIT("PrelRead")
39 pREL_NUM     = SLIT("PrelNum")
40 pREL_LIST    = SLIT("PrelList")
41 pREL_TUP     = SLIT("PrelTup")
42 pACKED_STRING= SLIT("PackBase")
43 cONC_BASE    = SLIT("ConcBase")
44 iO_BASE      = SLIT("IOBase")
45 eRROR        = SLIT("Error")
46 mONAD        = SLIT("Monad")
47 rATIO        = SLIT("Ratio")
48 iX           = SLIT("Ix")
49 sT_BASE      = SLIT("STBase")
50 aRR_BASE     = SLIT("ArrBase")
51 fOREIGN      = SLIT("Foreign")
52 cCALL        = SLIT("CCall")
53 aDDR         = SLIT("Addr")
54
55 mAIN         = SLIT("Main")
56 gHC_MAIN     = SLIT("GHCmain")
57 gHC_ERR      = SLIT("GHCerr")
58
59 \end{code}