diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-14 23:59:51 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-14 23:59:51 +0400 |
| commit | daf978ddd1f0a07ce4711fa97f51d0ec02478f73 (patch) | |
| tree | 73aed776a0db115bb8133f10f399bde8a16a3d16 /src/Network/BitTorrent/Exchange/Session.hs | |
| parent | 5f25d1759ef168917247bc0533ec7cc57dfdc5ac (diff) | |
Allow to set default request queue length at runtime
Diffstat (limited to 'src/Network/BitTorrent/Exchange/Session.hs')
| -rw-r--r-- | src/Network/BitTorrent/Exchange/Session.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/Exchange/Session.hs b/src/Network/BitTorrent/Exchange/Session.hs index 416e00fd..1e72ba96 100644 --- a/src/Network/BitTorrent/Exchange/Session.hs +++ b/src/Network/BitTorrent/Exchange/Session.hs | |||
| @@ -191,7 +191,7 @@ sendBroadcast msg = do | |||
| 191 | 191 | ||
| 192 | fillRequestQueue :: Wire Session () | 192 | fillRequestQueue :: Wire Session () |
| 193 | fillRequestQueue = do | 193 | fillRequestQueue = do |
| 194 | maxN <- lift $ getAdvertisedQueueLength | 194 | maxN <- lift getMaxQueueLength |
| 195 | rbf <- use connBitfield | 195 | rbf <- use connBitfield |
| 196 | addr <- asks connRemoteAddr | 196 | addr <- asks connRemoteAddr |
| 197 | blks <- withStatusUpdates $ do | 197 | blks <- withStatusUpdates $ do |