Removed redundant argument from BucketRefreshser constructor.

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
         -- 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