diff options
Diffstat (limited to 'compiler/main/Packages.hs')
| -rw-r--r-- | compiler/main/Packages.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/main/Packages.hs b/compiler/main/Packages.hs index ecec982422..0c91af284d 100644 --- a/compiler/main/Packages.hs +++ b/compiler/main/Packages.hs @@ -339,7 +339,8 @@ listPackageConfigMap dflags = eltsUDFM (pkgIdMap (pkgState dflags)) -- 'pkgState' in 'DynFlags' and return a list of packages to -- link in. initPackages :: DynFlags -> IO (DynFlags, [UnitId]) -initPackages dflags = do +initPackages dflags0 = do + dflags <- interpretPackageEnv dflags0 pkg_db <- case pkgDatabase dflags of Nothing -> readPackageConfigs dflags @@ -879,9 +880,7 @@ mkPackageState UnitId) -- this package, might be modified if the current -- package is a wired-in package. -mkPackageState dflags0 dbs preload0 = do - dflags <- interpretPackageEnv dflags0 - +mkPackageState dflags dbs preload0 = do -- Compute the unit id let this_package = thisPackage dflags |