[project @ 1997-03-14 07:52:06 by simonpj]

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

diff --git a/ghc/compiler/prelude/PrelMods.lhs b/ghc/compiler/prelude/PrelMods.lhs
index 8d9a5ad..321b83c 100644 (file)
--- a/ghc/compiler/prelude/PrelMods.lhs
+++ b/ghc/compiler/prelude/PrelMods.lhs
@@ -4,15 +4,53 @@
 \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, look like the recursive module monster caught up and
+ gobbled whoever was writing the above :-) -- SOF ]
+
 \begin{code}
 #include "HsVersions.h"
 
-module PrelMods where
+module PrelMods
+        (
+        isPreludeModule,   -- :: Module -> Bool
+
+         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
+import UniqSet ( UniqSet(..), mkUniqSet, elementOfUniqSet )
+
 \end{code}
 
+Predicate used by RnIface to decide whether or not to
+append a special suffix for prelude modules:
+
+\begin{code}
+isPreludeModule :: Module -> Bool
+isPreludeModule mod = mod `elementOfUniqSet` preludeNames
+
+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}
 
 \begin{code}
 gHC__       = SLIT("GHC")         -- Primitive types and values
@@ -36,4 +74,7 @@ fOREIGN            = SLIT("Foreign")
 mAIN        = SLIT("Main")
 gHC_MAIN     = SLIT("GHCmain")
 gHC_ERR             = SLIT("GHCerr")
+
+
+
 \end{code}