From 7acfb61777caa5f44f5c34c79ef983c9b303191f Mon Sep 17 00:00:00 2001
From: Sylvain Henry <sylvain@haskus.fr>
Date: Mon, 29 Mar 2021 18:15:03 +0200
Subject: Move HPT in UnitEnv

---
 ghc/GHCi/Leak.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ghc/GHCi')

diff --git a/ghc/GHCi/Leak.hs b/ghc/GHCi/Leak.hs
index e973390e3e..6102df9e04 100644
--- a/ghc/GHCi/Leak.hs
+++ b/ghc/GHCi/Leak.hs
@@ -38,9 +38,9 @@ data LeakModIndicators = LeakModIndicators
 -- | Grab weak references to some of the data structures representing
 -- the currently loaded modules.
 getLeakIndicators :: HscEnv -> IO LeakIndicators
-getLeakIndicators HscEnv{..} =
+getLeakIndicators hsc_env =
   fmap LeakIndicators $
-    forM (eltsUDFM hsc_HPT) $ \hmi@HomeModInfo{..} -> do
+    forM (eltsUDFM (hsc_HPT hsc_env)) $ \hmi@HomeModInfo{..} -> do
       leakMod <- mkWeakPtr hmi Nothing
       leakIface <- mkWeakPtr hm_iface Nothing
       leakDetails <- mkWeakPtr hm_details Nothing
-- 
cgit v1.2.1