From 573f8d0411abbf0018077487ddd58150c3d1208c Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Sat, 28 Dec 2013 12:22:21 +0400
Subject: Drop old node if it is not responding

---
 src/Network/BitTorrent/DHT/Routing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
   = NeedPing nodeAddr $ \ mtime ->
       insertNode info $
         case mtime of
-          Nothing       -> bucket
+          Nothing       -> rest
           Just pongTime -> PSQ.insert old pongTime bucket
 
   -- bucket is good, but not full => we can insert a new node
-- 
cgit v1.2.3