[project @ 2003-09-23 16:52:44 by sof]

[ghc-hetmet.git] / ghc / compiler / main / MkIface.lhs

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 0172930..9f31e70 100644 (file)
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -519,8 +519,8 @@ mkUsageInfo hsc_env eps
     pit = eps_PIT eps
     
     import_all mod = case lookupModuleEnv dir_imp_mods mod of
-                       Just (_,imp_all) -> imp_all
-                       Nothing          -> False
+                       Just (_, Nothing) -> True
+                       _                 -> False
     
     -- ent_map groups together all the things imported and used
     -- from a particular module in this package