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