diff options
Diffstat (limited to 'ghc/GHCi')
| -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 |