From: simonmar <unknown>
Date: Fri, 7 Oct 2005 11:01:47 +0000 (+0000)
Subject: [project @ 2005-10-07 11:01:47 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~185
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c1a05f81b472d1031a215f75866c0653fa345e5b;p=ghc-hetmet.git

[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
--- 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 ])
   --