From 709834e3d78f2cec750397bf6f4b6a2ff14e8590 Mon Sep 17 00:00:00 2001 From: joe Date: Wed, 8 Nov 2017 00:05:18 -0500 Subject: Removed redundant argument from BucketRefreshser constructor. --- src/Network/BitTorrent/MainlineDHT.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network/BitTorrent') 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 -- have a client to send queries with. let nullPing = const $ return False nullSearch = mainlineSearch $ \_ _ -> return Nothing - refresher4 <- newBucketRefresher mainlineSpace tentative_info nullSearch nullPing - refresher6 <- newBucketRefresher mainlineSpace tentative_info6 nullSearch nullPing + refresher4 <- newBucketRefresher tentative_info nullSearch nullPing + refresher6 <- newBucketRefresher tentative_info6 nullSearch nullPing let tbl4 = refreshBuckets refresher4 tbl6 = refreshBuckets refresher6 updateIPVote tblvar addrvar a = do -- cgit v1.2.3