From 480088a97f9622b7bb56978f3596e87ee7c770a0 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 25 Jul 2017 22:09:22 -0400
Subject: pattern fail

---
 src/Network/DHT/Routing.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src')

diff --git a/src/Network/DHT/Routing.hs b/src/Network/DHT/Routing.hs
index 63ff46c7..0391c116 100644
--- a/src/Network/DHT/Routing.hs
+++ b/src/Network/DHT/Routing.hs
@@ -327,6 +327,7 @@ updateBucketForPingResult bad_node got_response bucket
  where
     (top, popped) = runIdentity $ popFront bucketQ (bktQ bucket)
 
+    -- Dropped from accepted, replaced by pending.
     replacements | got_response     = [] -- Timestamp was already updated by TryInsert.
                  | Just info <- top = do
                                          -- Insert only if there's a removal.
@@ -334,7 +335,9 @@ updateBucketForPingResult bad_node got_response bucket
                                          return (bad_node, info)
                  | otherwise        = []
 
+    -- Dropped from the pending queue without replacing.
     forgotten | got_response = maybeToList $ fmap snd top
+              | otherwise    = []
 
 
     replace (bad_node, (tm, info)) =
-- 
cgit v1.2.3