[project @ 2004-10-04 09:27:32 by simonpj]

[ghc-hetmet.git] / ghc / compiler / rename / RnNames.lhs

diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 6e8c6be..5401584 100644 (file)
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -204,7 +204,7 @@ importsFromImportDecl this_mod
                --      (a) remove this_mod (might be there as a hi-boot)
                --      (b) add imp_mod itself
                -- Take its dependent packages unchanged
-            ((imp_mod_name, want_boot) : filter not_self (dep_mods deps), dep_pkgs deps)
+            ((imp_mod_name, want_boot) : dep_mods deps, dep_pkgs deps)
 
           | otherwise  
           =    -- Imported module is from another package
@@ -213,8 +213,6 @@ importsFromImportDecl this_mod
             ASSERT( not (mi_package iface `elem` dep_pkgs deps) )
             ([], mi_package iface : dep_pkgs deps)
 
-       not_self (m, _) = m /= this_mod_name
-
        import_all = case imp_details of
                        Just (is_hiding, ls)     -- Imports are spec'd explicitly
                          | not is_hiding -> Just (not (null ls))