From 38d8eb046cefce18a6689488994c05abf1223ffe Mon Sep 17 00:00:00 2001 From: Sam T Date: Thu, 13 Jun 2013 07:36:48 +0400 Subject: + Add defaultClient function. This exposes problems with keepalives: exsample: sendWakeup: resource exhausted (Resource temporarily unavailable ) --- src/Network/BitTorrent.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'src/Network/BitTorrent.hs') diff --git a/src/Network/BitTorrent.hs b/src/Network/BitTorrent.hs index b9dc39eb..546c7644 100644 --- a/src/Network/BitTorrent.hs +++ b/src/Network/BitTorrent.hs @@ -12,7 +12,7 @@ module Network.BitTorrent -- * Session , ClientSession - , newClient + , newClient, defaultClient , SwarmSession , newLeacher, newSeeder @@ -27,6 +27,8 @@ module Network.BitTorrent , Block(..), BlockIx(..), ppBlock, ppBlockIx , awaitEvent, yieldEvent + + , Extension, defaultExtensions, ppExtension ) where import Control.Concurrent @@ -41,7 +43,11 @@ import Network.BitTorrent.Internal import Network.BitTorrent.Exchange import Network.BitTorrent.Exchange.Protocol import Network.BitTorrent.Tracker +import Network.BitTorrent.Extension + +defaultClient :: IO ClientSession +defaultClient = newClient defaultThreadCount defaultExtensions -- discover should hide tracker and DHT communication under the hood -- thus we can obtain an unified interface -- cgit v1.2.3