+ Add defaultClient function.

This exposes problems with keepalives:

exsample: sendWakeup: resource exhausted (Resource temporarily
unavailable )

1 files changed, 7 insertions, 1 deletions

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