summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent.hs
diff options
context:
space:
mode:
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{-----------------------------------------------------------------------