[project @ 2005-10-07 11:01:47 by simonmar]

Fix a bug I just found: hiding a package if later versions are exposed
wasn't actually checking the exposed flag.

diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index a357480..29e4dff 100644 (file)
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -346,7 +346,8 @@ mkPackageState dflags orig_pkg_db = do
                  where myname = pkgName (package p)
                        myversion = pkgVersion (package p)
                        a_later_version_is_exposed
-                         = not (null [ p | p <- pkgs1, let pkg = package p,
+                         = not (null [ p | p <- pkgs1, exposed p,
+                                           let pkg = package p,
                                            pkgName pkg == myname,
                                            pkgVersion pkg > myversion ])
   --