From 1db3e1fe8911fffc8a0c9b1443d3718c6bc235f2 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 3 Aug 1997 02:14:33 +0000
Subject: [PATCH] [project @ 1997-08-03 02:14:33 by sof] Removed preludeNames -
dead code
---
ghc/compiler/prelude/PrelMods.lhs | 25 ++-----------------------
1 file changed, 2 insertions(+), 23 deletions(-)
diff --git a/ghc/compiler/prelude/PrelMods.lhs b/ghc/compiler/prelude/PrelMods.lhs
index ed6c186dd6cb..b897a707c96c 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
--
GitLab