ghc/compiler/prelude/PrelMods.lhs

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