Commit 9917b748 authored by Thomas Schilling's avatar Thomas Schilling
Browse files

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

parent 2cd57ecd
...@@ -170,7 +170,7 @@ initPackages :: DynFlags -> IO (DynFlags, [PackageId]) ...@@ -170,7 +170,7 @@ initPackages :: DynFlags -> IO (DynFlags, [PackageId])
initPackages dflags = do initPackages dflags = do
pkg_db <- case pkgDatabase dflags of pkg_db <- case pkgDatabase dflags of
Nothing -> readPackageConfigs dflags Nothing -> readPackageConfigs dflags
Just db -> return db Just db -> return $ maybeHidePackages dflags db
(pkg_state, preload, this_pkg) (pkg_state, preload, this_pkg)
<- mkPackageState dflags pkg_db [] (thisPackage dflags) <- mkPackageState dflags pkg_db [] (thisPackage dflags)
return (dflags{ pkgDatabase = Just pkg_db, return (dflags{ pkgDatabase = Just pkg_db,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment