Integrated cli interface to TCP Kademlia table.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Network/BitTorrent/MainlineDHT.hs b/src/Network/BitTorrent/MainlineDHT.hs
index 573efcba..a29657af 100644
--- a/src/Network/BitTorrent/MainlineDHT.hs
+++ b/src/Network/BitTorrent/MainlineDHT.hs
@@ -563,11 +563,11 @@ newClient swarms addr = do
         -- have a client to send queries with.
         let nullPing = const $ return False
             nullSearch = mainlineSearch $ \_ _ -> return Nothing
-        refresher4 <- newBucketRefresher tentative_info nullSearch nullPing
-        refresher6 <- newBucketRefresher tentative_info6 nullSearch nullPing
-        let tbl4 = refreshBuckets refresher4
-            tbl6 = refreshBuckets refresher6
-            updateIPVote tblvar addrvar a = do
+        tbl4 <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) tentative_info R.defaultBucketCount
+        refresher4 <- newBucketRefresher tbl4 nullSearch nullPing
+        tbl6 <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) tentative_info6 R.defaultBucketCount
+        refresher6 <- newBucketRefresher tbl6 nullSearch nullPing
+        let updateIPVote tblvar addrvar a = do
                 bkts <- readTVar tblvar
                 case bep42 a (nodeId $ R.thisNode bkts) of
                     Just nid -> do