diff options
author | joe <joe@jerkface.net> | 2017-11-08 00:05:18 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-11-08 02:30:43 -0500 |
commit | 709834e3d78f2cec750397bf6f4b6a2ff14e8590 (patch) | |
tree | 0cc3328aa47678f33d8edfada1a59db1ea026069 /src/Network/Tox/DHT/Handlers.hs | |
parent | 65a2d2fbeee67dc400f683eaedf88153f0ba9bab (diff) |
Removed redundant argument from BucketRefreshser constructor.
Diffstat (limited to 'src/Network/Tox/DHT/Handlers.hs')
-rw-r--r-- | src/Network/Tox/DHT/Handlers.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/Tox/DHT/Handlers.hs b/src/Network/Tox/DHT/Handlers.hs index c1f57177..7f3bc7ed 100644 --- a/src/Network/Tox/DHT/Handlers.hs +++ b/src/Network/Tox/DHT/Handlers.hs | |||
@@ -158,8 +158,8 @@ newRouting addr crypto update4 update6 = do | |||
158 | , searchNodeAddress = nodeIP &&& nodePort | 158 | , searchNodeAddress = nodeIP &&& nodePort |
159 | , searchQuery = \_ _ -> return Nothing | 159 | , searchQuery = \_ _ -> return Nothing |
160 | } | 160 | } |
161 | refresher4 <- newBucketRefresher toxSpace tentative_info nullSearch nullPing | 161 | refresher4 <- newBucketRefresher tentative_info nullSearch nullPing |
162 | refresher6 <- newBucketRefresher toxSpace tentative_info6 nullSearch nullPing | 162 | refresher6 <- newBucketRefresher tentative_info6 nullSearch nullPing |
163 | let tbl4 = refreshBuckets refresher4 | 163 | let tbl4 = refreshBuckets refresher4 |
164 | tbl6 = refreshBuckets refresher6 | 164 | tbl6 = refreshBuckets refresher6 |
165 | committee4 <- newTriadCommittee (update4 tbl4) -- updateIPVote tbl4 addr4 | 165 | committee4 <- newTriadCommittee (update4 tbl4) -- updateIPVote tbl4 addr4 |