diff options
Diffstat (limited to 'ghc/GHCi/UI.hs')
| -rw-r--r-- | ghc/GHCi/UI.hs | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index c97fb01033..349368b6d7 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -134,8 +134,6 @@ import GHC.IO.Exception ( IOErrorType(InvalidArgument) ) import GHC.IO.Handle ( hFlushAll ) import GHC.TopHandler ( topHandler ) -import GHCi.Leak - ----------------------------------------------------------------------------- data GhciSettings = GhciSettings { @@ -1648,14 +1646,6 @@ loadModule' files = do -- require some re-working of the GHC interface, so we'll leave it -- as a ToDo for now. - hsc_env <- GHC.getSession - - -- Grab references to the currently loaded modules so that we can - -- see if they leak. - leak_indicators <- if gopt Opt_GhciLeakCheck (hsc_dflags hsc_env) - then liftIO $ getLeakIndicators hsc_env - else return (panic "no leak indicators") - -- unload first _ <- GHC.abandonAll lift discardActiveBreakPoints @@ -1663,10 +1653,7 @@ loadModule' files = do _ <- GHC.load LoadAllTargets GHC.setTargets targets - success <- doLoadAndCollectInfo False LoadAllTargets - when (gopt Opt_GhciLeakCheck (hsc_dflags hsc_env)) $ - liftIO $ checkLeakIndicators (hsc_dflags hsc_env) leak_indicators - return success + doLoadAndCollectInfo False LoadAllTargets -- | @:add@ command addModule :: [FilePath] -> InputT GHCi () |