diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-10-08 09:43:21 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-12 19:17:15 -0400 |
| commit | 105e2711a0e382863cccee6dbc3ccb0ee79b0ce6 (patch) | |
| tree | 49a680cf50c06d77af4d713a6dfd5d7fbc5c0af0 /compiler/GHC/Driver/Make.hs | |
| parent | 0c5d9ca8aa1e5574667e7da704a1ea24eb02cece (diff) | |
| download | haskell-105e2711a0e382863cccee6dbc3ccb0ee79b0ce6.tar.gz | |
driver: Pass hsc_env with empty HPT into upsweep
Otherwise you end up retaining the whole old HPT when reloading in GHCi.
Diffstat (limited to 'compiler/GHC/Driver/Make.hs')
| -rw-r--r-- | compiler/GHC/Driver/Make.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/Driver/Make.hs b/compiler/GHC/Driver/Make.hs index 37ca1b50f7..7a869d09cd 100644 --- a/compiler/GHC/Driver/Make.hs +++ b/compiler/GHC/Driver/Make.hs @@ -568,6 +568,7 @@ load' how_much mHscMessage mod_graph = do Just n -> return n setSession $ hscUpdateHPT (const emptyHomePackageTable) hsc_env + hsc_env <- getSession (upsweep_ok, hsc_env1) <- withDeferredDiagnostics $ liftIO $ upsweep n_jobs hsc_env mHscMessage pruned_hpt direct_deps build_plan setSession hsc_env1 |