From: simonmar <unknown>
Date: Wed, 7 Feb 2001 12:43:32 +0000 (+0000)
Subject: [project @ 2001-02-07 12:43:32 by simonmar]
X-Git-Tag: Approximately_9120_patches~2720
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9d2e8282e3ecba16aaf6b0d6532fc1f10e4061ca;p=ghc-hetmet.git

[project @ 2001-02-07 12:43:32 by simonmar]
don't moan about "loading my own interface" when we're in a package module.
---

diff --git a/ghc/compiler/rename/RnHiFiles.lhs b/ghc/compiler/rename/RnHiFiles.lhs
index 6664fe6..a8b7257 100644
--- a/ghc/compiler/rename/RnHiFiles.lhs
+++ b/ghc/compiler/rename/RnHiFiles.lhs
@@ -153,8 +153,9 @@ tryLoadInterface doc_str mod_name from
 	-- Check that we aren't importing ourselves. 
 	-- That only happens in Rename.checkOldIface, 
 	-- which doesn't call tryLoadInterface
-   warnCheckRn	(moduleName this_mod /= mod_name)
-		(warnSelfImport this_mod)		`thenRn_`
+   warnCheckRn	
+	(not (isHomeModule this_mod) || moduleName this_mod /= mod_name)
+	(warnSelfImport this_mod)		`thenRn_`
 
 	-- READ THE MODULE IN
    findAndReadIface doc_str mod_name hi_boot_file   `thenRn` \ read_result ->