diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-28 12:22:21 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-12-28 12:22:21 +0400 |
commit | 573f8d0411abbf0018077487ddd58150c3d1208c (patch) | |
tree | 5dd2034231314cf8c3a12a71eba282afba2ed1e7 /src/Network/BitTorrent | |
parent | 75880c7cdd6ec3eac89a04f5c473dfd4efbff012 (diff) |
Drop old node if it is not responding
Diffstat (limited to 'src/Network/BitTorrent')
-rw-r--r-- | src/Network/BitTorrent/DHT/Routing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT/Routing.hs b/src/Network/BitTorrent/DHT/Routing.hs index a007c279..b37f2613 100644 --- a/src/Network/BitTorrent/DHT/Routing.hs +++ b/src/Network/BitTorrent/DHT/Routing.hs | |||
@@ -208,7 +208,7 @@ insertBucket curTime info bucket | |||
208 | = NeedPing nodeAddr $ \ mtime -> | 208 | = NeedPing nodeAddr $ \ mtime -> |
209 | insertNode info $ | 209 | insertNode info $ |
210 | case mtime of | 210 | case mtime of |
211 | Nothing -> bucket | 211 | Nothing -> rest |
212 | Just pongTime -> PSQ.insert old pongTime bucket | 212 | Just pongTime -> PSQ.insert old pongTime bucket |
213 | 213 | ||
214 | -- bucket is good, but not full => we can insert a new node | 214 | -- bucket is good, but not full => we can insert a new node |