diff options
author | Sam T <pxqr.sta@gmail.com> | 2013-07-14 01:08:51 +0400 |
---|---|---|
committer | Sam T <pxqr.sta@gmail.com> | 2013-07-14 01:08:51 +0400 |
commit | f4e4a77a3150b402e93a139a0db54e4dad02d03d (patch) | |
tree | 58b90a07dbd6351adaa09965ed3d28f060b36c58 /src/Network/BitTorrent.hs | |
parent | 7ddf7cd76d6f545c4dfbb5c6741024c097375bf1 (diff) |
- Remove discovery module.
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 | {----------------------------------------------------------------------- |