[project @ 1998-11-08 17:06:55 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 08bcc1a..0ae3130 100644 (file)
--- a/ghc/compiler/prelude/PrelMods.lhs
+++ b/ghc/compiler/prelude/PrelMods.lhs
@@ -4,36 +4,60 @@
 \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
+        (
+       pREL_GHC, pRELUDE, mONAD, rATIO, iX, mAIN, pREL_MAIN, pREL_ERR,
+       pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP, pREL_ADDR, pREL_READ,
+       pREL_PACK, pREL_CONC, pREL_IO_BASE, pREL_ST, pREL_ARR, pREL_FOREIGN,
+       pREL_CCALL,
 
-module PrelMods (
-       pRELUDE, pRELUDE_BUILTIN, pRELUDE_CORE, pRELUDE_RATIO,
-       pRELUDE_LIST, pRELUDE_TEXT,
-       pRELUDE_PRIMIO, pRELUDE_IO, pRELUDE_PS,
-       gLASGOW_ST, gLASGOW_MISC,
-       pRELUDE_FB, fromPrelude
-  ) where
+       iNT, wORD
+       ) where
 
-CHK_Ubiq() -- debugging consistency check
-\end{code}
+#include "HsVersions.h"
 
+import BasicTypes( Module )
+\end{code}
 
 \begin{code}
-gLASGOW_MISC   = SLIT("PreludeGlaMisc")
-gLASGOW_ST     = SLIT("PreludeGlaST")
-pRELUDE                = SLIT("Prelude")
-pRELUDE_BUILTIN = SLIT("PreludeBuiltin")
-pRELUDE_CORE   = SLIT("PreludeCore")
-pRELUDE_FB     = SLIT("PreludeFoldrBuild")
-pRELUDE_IO     = SLIT("PreludeIO")
-pRELUDE_LIST   = SLIT("PreludeList")
-pRELUDE_PRIMIO = SLIT("PreludePrimIO")
-pRELUDE_PS     = SLIT("PreludePS")
-pRELUDE_RATIO  = SLIT("PreludeRatio")
-pRELUDE_TEXT   = SLIT("PreludeText")
-
-fromPrelude :: FAST_STRING -> Bool
-fromPrelude s = (_SUBSTR_ s 0 6 == SLIT("Prelude"))
+pREL_GHC, pRELUDE, mONAD, rATIO, iX, mAIN, pREL_MAIN, pREL_ERR      :: Module
+pREL_BASE, pREL_NUM, pREL_LIST, pREL_TUP, pREL_ADDR, pREL_READ      :: Module  
+pREL_PACK, pREL_CONC, pREL_IO_BASE, pREL_ST, pREL_ARR, pREL_FOREIGN :: Module  
+
+
+pRELUDE             = SLIT("Prelude")
+pREL_GHC     = SLIT("PrelGHC")    -- Primitive types and values
+pREL_BASE    = SLIT("PrelBase")
+pREL_READ    = SLIT("PrelRead")
+pREL_NUM     = SLIT("PrelNum")
+pREL_LIST    = SLIT("PrelList")
+pREL_TUP     = SLIT("PrelTup")
+pREL_PACK    = SLIT("PrelPack")
+pREL_CONC    = SLIT("PrelConc")
+pREL_IO_BASE = SLIT("PrelIOBase")
+pREL_ST             = SLIT("PrelST")
+pREL_ARR     = SLIT("PrelArr")
+pREL_FOREIGN = SLIT("PrelForeign")
+pREL_CCALL   = SLIT("PrelCCall")
+pREL_ADDR    = SLIT("PrelAddr")
+pREL_ERR     = SLIT("PrelErr")
+
+mONAD       = SLIT("Monad")
+rATIO       = SLIT("Ratio")
+iX          = SLIT("Ix")
+
+pREL_MAIN    = SLIT("PrelMain")
+mAIN        = SLIT("Main")
+
+iNT, wORD   :: Module
+
+iNT         = SLIT("Int")
+wORD        = SLIT("Word")
+
 \end{code}