From: sof <unknown>
Date: Sun, 3 Aug 1997 02:14:33 +0000 (+0000)
Subject: [project @ 1997-08-03 02:14:33 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~160
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1db3e1fe8911fffc8a0c9b1443d3718c6bc235f2;p=ghc-hetmet.git

[project @ 1997-08-03 02:14:33 by sof]
Removed preludeNames - dead code
---

diff --git a/ghc/compiler/prelude/PrelMods.lhs b/ghc/compiler/prelude/PrelMods.lhs
index ed6c186..b897a70 100644
--- a/ghc/compiler/prelude/PrelMods.lhs
+++ b/ghc/compiler/prelude/PrelMods.lhs
@@ -6,8 +6,8 @@
 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"
@@ -23,30 +23,9 @@ module PrelMods
 	) 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}
-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