From 9d2e8282e3ecba16aaf6b0d6532fc1f10e4061ca Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 7 Feb 2001 12:43:32 +0000
Subject: [PATCH] [project @ 2001-02-07 12:43:32 by simonmar] don't moan about
 "loading my own interface" when we're in a package module.

---
 ghc/compiler/rename/RnHiFiles.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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 ->
-- 
1.7.10.4