[project @ 1997-08-03 02:14: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 17bef6a..b897a70 100644 (file)
--- a/ghc/compiler/prelude/PrelMods.lhs
+++ b/ghc/compiler/prelude/PrelMods.lhs
@@ -4,40 +4,51 @@
 \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 (
-       pRELUDE, pRELUDE_BUILTIN,
-       pRELUDE_LIST, pRELUDE_TEXT,
-       pRELUDE_PRIMIO, pRELUDE_IO, pRELUDE_PS,
-       gLASGOW_ST, gLASGOW_MISC,
-       pRELUDE_FB,
-       rATIO, iX,
-       
-       fromPrelude
-  ) where
+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
+       ) where
 
 CHK_Ubiq() -- debugging consistency check
-\end{code}
 
+\end{code}
 
 \begin{code}
-gLASGOW_MISC   = SLIT("PreludeGlaMisc")
-gLASGOW_ST     = SLIT("PreludeGlaST")
-pRELUDE                = SLIT("Prelude")
-pRELUDE_BUILTIN = SLIT("PreludeBuiltin")
-pRELUDE_FB     = SLIT("PreludeFoldrBuild")
-pRELUDE_IO     = SLIT("PreludeIO")
-pRELUDE_LIST   = SLIT("PreludeList")
-pRELUDE_PRIMIO = SLIT("PreludePrimIO")
-pRELUDE_PS     = SLIT("PreludePS")
-pRELUDE_TEXT   = SLIT("PreludeText")
-
-rATIO = SLIT("Ratio")
-iX = SLIT("Ix")
-
-fromPrelude :: FAST_STRING -> Bool
-fromPrelude s = (_SUBSTR_ s 0 6 == SLIT("Prelude"))
+gHC__       = SLIT("GHC")         -- Primitive types and values
+
+pRELUDE             = SLIT("Prelude")
+pREL_BASE    = SLIT("PrelBase")
+pREL_READ    = SLIT("PrelRead")
+pREL_NUM     = SLIT("PrelNum")
+pREL_LIST    = SLIT("PrelList")
+pREL_TUP     = SLIT("PrelTup")
+pACKED_STRING= SLIT("PackedString")
+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")
+
+mAIN        = SLIT("Main")
+gHC_MAIN     = SLIT("GHCmain")
+gHC_ERR             = SLIT("GHCerr")
+
+
+
 \end{code}