diff options
Diffstat (limited to 'src/Network/BitTorrent/MainlineDHT.hs')
-rw-r--r-- | src/Network/BitTorrent/MainlineDHT.hs | 4 |
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 |