From 2782cde60ac66c75d1e1ab6993a3075e375c1786 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Tue, 7 Jan 2020 02:12:32 -0500
Subject: async-search: clean up old query keys.

---
 kad/src/Network/Kademlia/Search.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/kad/src/Network/Kademlia/Search.hs b/kad/src/Network/Kademlia/Search.hs
index 19d0df69..1f0cfa13 100644
--- a/kad/src/Network/Kademlia/Search.hs
+++ b/kad/src/Network/Kademlia/Search.hs
@@ -132,6 +132,7 @@ reset nearestNodes qsearch target st = do
         writeTVar (searchInformant    st) MM.empty
         writeTVar (searchVisited      st) Set.empty
         writeTVar (searchPendingCount st) 0
+        writeTVar (searchPending      st) Map.empty
         return st
 
 grokQuery :: forall addr nid tok ni r qk.
@@ -209,6 +210,7 @@ searchCancel SearchState{..} = do
     writeTVar searchQueued Nothing
     m <- readTVar searchPending
     foldr (>>) (return ()) m
+    writeTVar searchPending Map.empty
 
 search ::
     ( Ord r
-- 
cgit v1.2.3