pattern fail

1 files changed, 3 insertions, 0 deletions

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)) =