From c790b2ec13d4acb39fd738801a335ca831877e6d Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 12 Apr 2000 16:15:35 +0000 Subject: [PATCH] [project @ 2000-04-12 16:15:35 by simonmar] hack to fix bootstrapping --- ghc/compiler/basicTypes/Module.lhs | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) 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 -- 1.7.10.4