diff options
Diffstat (limited to 'src/Network/BitTorrent/Client/Handle.hs')
-rw-r--r-- | src/Network/BitTorrent/Client/Handle.hs | 3 |
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 | |||
110 | closeHandle :: Handle -> BitTorrent () | 110 | closeHandle :: Handle -> BitTorrent () |
111 | closeHandle h @ Handle {..} = do | 111 | closeHandle h @ Handle {..} = do |
112 | freeHandle handleTopic $ do | 112 | freeHandle handleTopic $ do |
113 | Client {..} <- getClient | ||
113 | stop h | 114 | stop h |
114 | liftIO $ Exchange.closeSession handleExchange | 115 | liftIO $ Exchange.closeSession handleExchange |
115 | liftIO $ Tracker.closeSession handleTrackers | 116 | liftIO $ Tracker.closeSession trackerManager handleTrackers |
116 | 117 | ||
117 | {----------------------------------------------------------------------- | 118 | {----------------------------------------------------------------------- |
118 | -- Control | 119 | -- Control |