summaryrefslogtreecommitdiff
path: root/ghc
diff options
context:
space:
mode:
authorSylvain Henry <sylvain@haskus.fr>2021-03-29 18:15:03 +0200
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-04-01 00:40:07 -0400
commit7acfb61777caa5f44f5c34c79ef983c9b303191f (patch)
tree3d8a6b63b08bc8b0f672205005cbdd3c9cc1c7b0 /ghc
parent0219297c874659169507fa67c469d65bb9fabb1b (diff)
downloadhaskell-7acfb61777caa5f44f5c34c79ef983c9b303191f.tar.gz
Move HPT in UnitEnv
Diffstat (limited to 'ghc')
-rw-r--r--ghc/GHCi/Leak.hs4
1 files changed, 2 insertions, 2 deletions
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