Allow to set default request queue length at runtime

1 files changed, 6 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Exchange/Message.hs b/src/Network/BitTorrent/Exchange/Message.hs
index d0d2bb03..7748f843 100644
--- a/src/Network/BitTorrent/Exchange/Message.hs
+++ b/src/Network/BitTorrent/Exchange/Message.hs
@@ -62,6 +62,7 @@ module Network.BitTorrent.Exchange.Message
        , StatusUpdate   (..)
        , Available      (..)
        , Transfer       (..)
+       , defaultRequestQueueLength
 
          -- ** Fast extension
        , FastMessage    (..)
@@ -483,6 +484,11 @@ instance PeerMessage Transfer where
   stats (Piece   p  ) = ByteStats (4 + 1) (4 + 4 + blockSize p) 0
   stats (Cancel  _  ) = ByteStats (4 + 1) (3 * 4) 0
 
+-- TODO increase
+-- | Max number of pending 'Request's inflight.
+defaultRequestQueueLength :: Int
+defaultRequestQueueLength = 1
+
 {-----------------------------------------------------------------------
 --  Fast messages
 -----------------------------------------------------------------------}