+ Add defaultClient function.

This exposes problems with keepalives:

exsample: sendWakeup: resource exhausted (Resource temporarily
unavailable )

1 files changed, 12 insertions, 6 deletions

diff --git a/src/Network/BitTorrent/Internal.hs b/src/Network/BitTorrent/Internal.hs
index 2fadd9ce..afe1fff1 100644
--- a/src/Network/BitTorrent/Internal.hs
+++ b/src/Network/BitTorrent/Internal.hs
@@ -28,6 +28,8 @@ module Network.BitTorrent.Internal
        , ClientSession (clientPeerID, allowedExtensions)
        , newClient, getCurrentProgress
 
+       , ThreadCount, defaultThreadCount
+
          -- * Swarm
        , SwarmSession(SwarmSession, torrentMeta, clientSession)
        , newLeacher, newSeeder
@@ -109,6 +111,9 @@ startProgress = Progress 0 0
 
 type ThreadCount = Int
 
+defaultThreadCount :: ThreadCount
+defaultThreadCount = 1000
+
 -- | In one application we could have many clients with difference
 -- ID's and different enabled extensions.
 data ClientSession = ClientSession {
@@ -166,6 +171,13 @@ newClient n exts = do
 
 type SessionCount = Int
 
+defSeederConns :: SessionCount
+defSeederConns = defaultUnchokeSlots
+
+defLeacherConns :: SessionCount
+defLeacherConns = defaultNumWant
+
+
 -- | Extensions are set globally by
 --   Swarm session are un
 data SwarmSession = SwarmSession {
@@ -204,12 +216,6 @@ newLeacher :: ClientSession -> Torrent -> IO SwarmSession
 newLeacher cs t @ Torrent {..}
   = newSwarmSession defLeacherConns (haveNone (pieceCount tInfo)) cs t
 
-defSeederConns :: SessionCount
-defSeederConns = defaultUnchokeSlots
-
-defLeacherConns :: SessionCount
-defLeacherConns = defaultNumWant
-
 --isLeacher :: SwarmSession -> IO Bool
 --isLeacher = undefined