[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 ed6c186..287a378 100644 (file)
--- a/ghc/compiler/prelude/PrelMods.lhs
+++ b/ghc/compiler/prelude/PrelMods.lhs
@@ -6,12 +6,10 @@
 The strings identify built-in prelude modules.  They are
 defined here so as to avod 
 
-[oh dear, look like the recursive module monster caught up and
- gobbled whoever was writing the above :-) -- SOF ]
+[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,
@@ -19,35 +17,20 @@ module PrelMods
         pREL_TUP  , pACKED_STRING, cONC_BASE,
          iO_BASE   , mONAD, rATIO, iX,
          sT_BASE   , aRR_BASE, fOREIGN, mAIN,
-         gHC_MAIN  , gHC_ERR
+         gHC_MAIN  , gHC_ERR,
+        cCALL     , aDDR
        ) where
 
-CHK_Ubiq() -- debugging consistency check
-import UniqSet ( UniqSet(..), mkUniqSet, elementOfUniqSet )
+#include "HsVersions.h"
 
+import BasicTypes( Module )
 \end{code}
 
-Predicate used by RnIface to decide whether or not to
-append a special suffix for prelude modules:
-
 \begin{code}
-preludeNames :: UniqSet FAST_STRING
-preludeNames =
- mkUniqSet
-   [ 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
-   ]
-\end{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     
 
-\begin{code}
 gHC__       = SLIT("GHC")         -- Primitive types and values
 
 pRELUDE             = SLIT("Prelude")
@@ -56,7 +39,7 @@ pREL_READ    = SLIT("PrelRead")
 pREL_NUM     = SLIT("PrelNum")
 pREL_LIST    = SLIT("PrelList")
 pREL_TUP     = SLIT("PrelTup")
-pACKED_STRING= SLIT("PackedString")
+pACKED_STRING= SLIT("PackBase")
 cONC_BASE    = SLIT("ConcBase")
 iO_BASE             = SLIT("IOBase")
 mONAD       = SLIT("Monad")
@@ -65,11 +48,11 @@ 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")
 
-
-
 \end{code}