summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2021-10-08 09:43:21 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-10-12 19:17:15 -0400
commit105e2711a0e382863cccee6dbc3ccb0ee79b0ce6 (patch)
tree49a680cf50c06d77af4d713a6dfd5d7fbc5c0af0
parent0c5d9ca8aa1e5574667e7da704a1ea24eb02cece (diff)
downloadhaskell-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.
-rw-r--r--compiler/GHC/Driver/Make.hs1
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