diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-20 18:29:14 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-13 02:13:03 -0400 |
| commit | bfd0a78cdd0287c26998a4d9419174e4dc305c6f (patch) | |
| tree | 7f864f90f4561782929acee2141385c328ab0aa9 /compiler/GHC/Unit | |
| parent | ac964c8350ba41082e9dca9cf1b7ff02aea2a636 (diff) | |
| download | haskell-bfd0a78cdd0287c26998a4d9419174e4dc305c6f.tar.gz | |
Don't return preload units when we set DyNFlags
Preload units can be retrieved in UnitState when needed (i.e. in GHCi)
Diffstat (limited to 'compiler/GHC/Unit')
| -rw-r--r-- | compiler/GHC/Unit/State.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs index 07752cb98d..c4e2d0673a 100644 --- a/compiler/GHC/Unit/State.hs +++ b/compiler/GHC/Unit/State.hs @@ -572,7 +572,7 @@ listUnitInfo state = Map.elems (unitInfoMap state) -- 'packageFlags' field of the 'DynFlags', and it will update the -- 'unitState' in 'DynFlags' and return a list of packages to -- link in. -initUnits :: DynFlags -> IO (DynFlags, [UnitId]) +initUnits :: DynFlags -> IO DynFlags initUnits dflags = do let forceUnitInfoMap (state, _) = unitInfoMap state `seq` () @@ -592,7 +592,7 @@ initUnits dflags = do } dflags'' = upd_wired_in_home_instantiations dflags' - return (dflags'', preloadUnits state) + return dflags'' -- ----------------------------------------------------------------------------- -- Reading the unit database(s) |