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