From: Thomas Schilling <nominolo@googlemail.com>
Date: Thu, 21 Oct 2010 17:04:32 +0000 (+0000)
Subject: Fix #4424.  Allow `-hide-all-packages` to be set dynamically.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9917b748b1adc255cc6d603bff5fe6d8df70d5fc

Fix #4424.  Allow `-hide-all-packages` to be set dynamically.
---

diff --git a/compiler/main/Packages.lhs b/compiler/main/Packages.lhs
index ec46a43..38e5996 100644
--- a/compiler/main/Packages.lhs
+++ b/compiler/main/Packages.lhs
@@ -170,7 +170,7 @@ initPackages :: DynFlags -> IO (DynFlags, [PackageId])
 initPackages dflags = do 
   pkg_db <- case pkgDatabase dflags of
                 Nothing -> readPackageConfigs dflags
-                Just db -> return db
+                Just db -> return $ maybeHidePackages dflags db
   (pkg_state, preload, this_pkg)       
         <- mkPackageState dflags pkg_db [] (thisPackage dflags)
   return (dflags{ pkgDatabase = Just pkg_db,