[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 (file)
--- 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