From 9917b748b1adc255cc6d603bff5fe6d8df70d5fc Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Thu, 21 Oct 2010 17:04:32 +0000 Subject: [PATCH] Fix #4424. Allow `-hide-all-packages` to be set dynamically. --- compiler/main/Packages.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, -- 1.7.10.4