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         ) where
  19
  20 #include "HsVersions.h"
  21
  22 import BasicTypes( Module )
  23 \end{code}
  24
  25 \begin{code}
  26 pREL_GHC, pRELUDE, mONAD, rATIO, iX, mAIN, pREL_MAIN, pREL_ERR      :: Module
  27 pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP, pREL_ADDR, pREL_READ      :: Module
  28 pREL_PACK, pREL_CONC, pREL_IO_BASE, pREL_ST, pREL_ARR, pREL_FOREIGN :: Module
  29
  30
  31 pRELUDE      = SLIT("Prelude")
  32 pREL_GHC     = SLIT("PrelGHC")     -- Primitive types and values
  33 pREL_BASE    = SLIT("PrelBase")
  34 pREL_READ    = SLIT("PrelRead")
  35 pREL_NUM     = SLIT("PrelNum")
  36 pREL_LIST    = SLIT("PrelList")
  37 pREL_TUP     = SLIT("PrelTup")
  38 pREL_PACK    = SLIT("PrelPack")
  39 pREL_CONC    = SLIT("PrelConc")
  40 pREL_IO_BASE = SLIT("PrelIOBase")
  41 pREL_ST      = SLIT("PrelST")
  42 pREL_ARR     = SLIT("PrelArr")
  43 pREL_FOREIGN = SLIT("PrelForeign")
  44 pREL_CCALL   = SLIT("PrelCCall")
  45 pREL_ADDR    = SLIT("PrelAddr")
  46 pREL_ERR     = SLIT("PrelErr")
  47
  48 mONAD        = SLIT("Monad")
  49 rATIO        = SLIT("Ratio")
  50 iX           = SLIT("Ix")
  51
  52 pREL_MAIN    = SLIT("PrelMain")
  53 mAIN         = SLIT("Main")
  54
  55 \end{code}