summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent.hs
diff options
context:
space:
mode:
authorSam T <pxqr.sta@gmail.com>2013-07-14 01:08:51 +0400
committerSam T <pxqr.sta@gmail.com>2013-07-14 01:08:51 +0400
commitf4e4a77a3150b402e93a139a0db54e4dad02d03d (patch)
tree58b90a07dbd6351adaa09965ed3d28f060b36c58 /src/Network/BitTorrent.hs
parent7ddf7cd76d6f545c4dfbb5c6741024c097375bf1 (diff)
- Remove discovery module.
Diffstat (limited to 'src/Network/BitTorrent.hs')
-rw-r--r--src/Network/BitTorrent.hs3
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
89import Network.BitTorrent.Exchange 89import Network.BitTorrent.Exchange
90import Network.BitTorrent.Exchange.Protocol 90import Network.BitTorrent.Exchange.Protocol
91import Network.BitTorrent.Tracker 91import Network.BitTorrent.Tracker
92import Network.BitTorrent.Discovery
93 92
94import System.Torrent.Storage 93import System.Torrent.Storage
95 94
@@ -100,8 +99,6 @@ import System.Torrent.Storage
100withDefaultClient :: PortNumber -> PortNumber -> (ClientSession -> IO ()) -> IO () 99withDefaultClient :: PortNumber -> PortNumber -> (ClientSession -> IO ()) -> IO ()
101withDefaultClient dhtPort listPort action = do 100withDefaultClient 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{-----------------------------------------------------------------------