summaryrefslogtreecommitdiff
path: root/src/Network/BitTorrent/MainlineDHT.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/BitTorrent/MainlineDHT.hs')
-rw-r--r--src/Network/BitTorrent/MainlineDHT.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/MainlineDHT.hs b/src/Network/BitTorrent/MainlineDHT.hs
index 47d5b3e1..f43b070c 100644
--- a/src/Network/BitTorrent/MainlineDHT.hs
+++ b/src/Network/BitTorrent/MainlineDHT.hs
@@ -562,8 +562,8 @@ newClient swarms addr = do
562 -- have a client to send queries with. 562 -- have a client to send queries with.
563 let nullPing = const $ return False 563 let nullPing = const $ return False
564 nullSearch = mainlineSearch $ \_ _ -> return Nothing 564 nullSearch = mainlineSearch $ \_ _ -> return Nothing
565 refresher4 <- newBucketRefresher mainlineSpace tentative_info nullSearch nullPing 565 refresher4 <- newBucketRefresher tentative_info nullSearch nullPing
566 refresher6 <- newBucketRefresher mainlineSpace tentative_info6 nullSearch nullPing 566 refresher6 <- newBucketRefresher tentative_info6 nullSearch nullPing
567 let tbl4 = refreshBuckets refresher4 567 let tbl4 = refreshBuckets refresher4
568 tbl6 = refreshBuckets refresher6 568 tbl6 = refreshBuckets refresher6
569 updateIPVote tblvar addrvar a = do 569 updateIPVote tblvar addrvar a = do