From: simonmar <unknown>
Date: Wed, 12 Apr 2000 16:15:35 +0000 (+0000)
Subject: [project @ 2000-04-12 16:15:35 by simonmar]
X-Git-Tag: Approximately_9120_patches~4724
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c790b2ec13d4acb39fd738801a335ca831877e6d;p=ghc-hetmet.git

[project @ 2000-04-12 16:15:35 by simonmar]
hack to fix bootstrapping
---

diff --git a/ghc/compiler/basicTypes/Module.lhs b/ghc/compiler/basicTypes/Module.lhs
index 9ce8aa9..24b4750 100644
--- a/ghc/compiler/basicTypes/Module.lhs
+++ b/ghc/compiler/basicTypes/Module.lhs
@@ -145,9 +145,18 @@ type ModuleName = EncodedFS
 	-- Haskell module names can include the quote character ',
 	-- so the module names have the z-encoding applied to them
 
-isPrelModuleName :: ModuleName -> Bool
 	-- True for names of prelude modules
-isPrelModuleName m = take 4 (_UNPK_ m) == "Prel"
+isPrelModuleName :: ModuleName -> Bool
+	-- HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK
+	--  HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK
+	--   HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK
+	--    HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK
+isPrelModuleName m = take 4 m_str == "Prel" && m_str /= "PrelInfo"
+  where m_str = _UNPK_ m
+	--    HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK
+	--   HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK
+	--  HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK
+	-- HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK HACK
 
 pprModuleName :: ModuleName -> SDoc
 pprModuleName nm = pprEncodedFS nm