Notify trackers with Stopped event at closeSession

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/Client/Handle.hs b/src/Network/BitTorrent/Client/Handle.hs
index 258af3fb..97ffc637 100644
--- a/src/Network/BitTorrent/Client/Handle.hs
+++ b/src/Network/BitTorrent/Client/Handle.hs
@@ -110,9 +110,10 @@ openMagnet rootPath uri @ Magnet {..} = do
 closeHandle :: Handle -> BitTorrent ()
 closeHandle h @ Handle {..} = do
   freeHandle handleTopic $ do
+    Client {..} <- getClient
     stop h
     liftIO $ Exchange.closeSession handleExchange
-    liftIO $ Tracker.closeSession handleTrackers
+    liftIO $ Tracker.closeSession trackerManager handleTrackers
 
 {-----------------------------------------------------------------------
 --  Control