[project @ 1998-01-30 16:57:33 by sof]

[ghc-hetmet.git] / ghc / compiler / prelude / PrelMods.lhs

diff --git a/ghc/compiler/prelude/PrelMods.lhs b/ghc/compiler/prelude/PrelMods.lhs
index 1d73db7..287a378 100644 (file)
--- a/ghc/compiler/prelude/PrelMods.lhs
+++ b/ghc/compiler/prelude/PrelMods.lhs
@@ -4,28 +4,55 @@
 \section[PrelMods]{Definitions of prelude modules}
 
 The strings identify built-in prelude modules.  They are
-defined here so as to avod
+defined here so as to avod 
+
+[oh dear, looks like the recursive module monster caught up with
+ and gobbled whoever was writing the above :-) -- SOF ]
+
 \begin{code}
-#include "HsVersions.h"
+module PrelMods
+        (
+         gHC__, pRELUDE, pREL_BASE,
+         pREL_READ , pREL_NUM, pREL_LIST,
+        pREL_TUP  , pACKED_STRING, cONC_BASE,
+         iO_BASE   , mONAD, rATIO, iX,
+         sT_BASE   , aRR_BASE, fOREIGN, mAIN,
+         gHC_MAIN  , gHC_ERR,
+        cCALL     , aDDR
+       ) where
 
-module PrelMods (
-       gHC_BUILTINS, -- things that are really and truly primitive
-       pRELUDE, gHC__,
-       rATIO, iX,
-       modulesWithBuiltins
-  ) where
+#include "HsVersions.h"
 
-CHK_Ubiq() -- debugging consistency check
+import BasicTypes( Module )
 \end{code}
 
-
 \begin{code}
+gHC__, pRELUDE, pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP :: Module
+pACKED_STRING, cONC_BASE, iO_BASE, mONAD, rATIO, iX      :: Module
+sT_BASE, aRR_BASE, fOREIGN, mAIN, gHC_MAIN, gHC_ERR      :: Module     
+
+gHC__       = SLIT("GHC")         -- Primitive types and values
+
 pRELUDE             = SLIT("Prelude")
-gHC_BUILTINS = SLIT("GHCbuiltins") -- the truly-primitive things
-gHC__       = SLIT("GHCbase")     -- all GHC basics, add-ons, extras, everything
-                                  -- (which can be defined in Haskell)
+pREL_BASE    = SLIT("PrelBase")
+pREL_READ    = SLIT("PrelRead")
+pREL_NUM     = SLIT("PrelNum")
+pREL_LIST    = SLIT("PrelList")
+pREL_TUP     = SLIT("PrelTup")
+pACKED_STRING= SLIT("PackBase")
+cONC_BASE    = SLIT("ConcBase")
+iO_BASE             = SLIT("IOBase")
+mONAD       = SLIT("Monad")
 rATIO       = SLIT("Ratio")
 iX          = SLIT("Ix")
+sT_BASE             = SLIT("STBase")
+aRR_BASE     = SLIT("ArrBase")
+fOREIGN             = SLIT("Foreign")
+cCALL        = SLIT("CCall")
+aDDR         = SLIT("Addr")
+
+mAIN        = SLIT("Main")
+gHC_MAIN     = SLIT("GHCmain")
+gHC_ERR             = SLIT("GHCerr")
 
-modulesWithBuiltins = [ gHC_BUILTINS, gHC__, pRELUDE, rATIO, iX ]
 \end{code}