diff options
Diffstat (limited to 'src/Network/BitTorrent.hs')
-rw-r--r-- | src/Network/BitTorrent.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs index c68cceac..7c1e02e2 100644 --- a/src/Network/BitTorrent.hs +++ b/src/Network/BitTorrent.hs | |||
@@ -89,7 +89,6 @@ import Network.BitTorrent.Extension | |||
89 | import Network.BitTorrent.Exchange | 89 | import Network.BitTorrent.Exchange |
90 | import Network.BitTorrent.Exchange.Protocol | 90 | import Network.BitTorrent.Exchange.Protocol |
91 | import Network.BitTorrent.Tracker | 91 | import Network.BitTorrent.Tracker |
92 | import Network.BitTorrent.Discovery | ||
93 | 92 | ||
94 | import System.Torrent.Storage | 93 | import System.Torrent.Storage |
95 | 94 | ||
@@ -100,8 +99,6 @@ import System.Torrent.Storage | |||
100 | withDefaultClient :: PortNumber -> PortNumber -> (ClientSession -> IO ()) -> IO () | 99 | withDefaultClient :: PortNumber -> PortNumber -> (ClientSession -> IO ()) -> IO () |
101 | withDefaultClient dhtPort listPort action = do | 100 | withDefaultClient dhtPort listPort action = do |
102 | withClientSession defaultThreadCount defaultExtensions $ \client -> do | 101 | withClientSession defaultThreadCount defaultExtensions $ \client -> do |
103 | startListener client listPort | ||
104 | startDHT client dhtPort | ||
105 | action client | 102 | action client |
106 | 103 | ||
107 | {----------------------------------------------------------------------- | 104 | {----------------------------------------------------------------------- |