diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-03-29 18:15:03 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-04-01 00:40:07 -0400 |
| commit | 7acfb61777caa5f44f5c34c79ef983c9b303191f (patch) | |
| tree | 3d8a6b63b08bc8b0f672205005cbdd3c9cc1c7b0 /ghc | |
| parent | 0219297c874659169507fa67c469d65bb9fabb1b (diff) | |
| download | haskell-7acfb61777caa5f44f5c34c79ef983c9b303191f.tar.gz | |
Move HPT in UnitEnv
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/GHCi/Leak.hs | 4 |
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 |