From 0dd2f5e5d078b735760e097df4204f9778bb193d Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sat, 8 Dec 2018 23:30:48 -0500 Subject: Integrated cli interface to TCP Kademlia table. --- src/Network/BitTorrent/MainlineDHT.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/Network/BitTorrent/MainlineDHT.hs') 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 -- cgit v1.2.3