diff options
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 901da99e..f22f9ffe 100644 --- a/src/Network/Tox/DHT/Handlers.hs +++ b/src/Network/Tox/DHT/Handlers.hs | |||
@@ -127,8 +127,8 @@ newRouting addr crypto update4 update6 = do | |||
127 | let nobkts = R.defaultBucketCount :: Int | 127 | let nobkts = R.defaultBucketCount :: Int |
128 | tbl4 <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) tentative_info4 nobkts | 128 | tbl4 <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) tentative_info4 nobkts |
129 | tbl6 <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) tentative_info6 nobkts | 129 | tbl6 <- newTVar $ R.nullTable (comparing nodeId) (\s -> hashWithSalt s . nodeId) tentative_info6 nobkts |
130 | committee4 <- newTriadCommittee (update4 tbl4) -- $ updateIPVote tbl4 addr4 | 130 | committee4 <- newTriadCommittee (update4 tbl4) -- updateIPVote tbl4 addr4 |
131 | committee6 <- newTriadCommittee (update6 tbl6) -- $ updateIPVote tbl6 addr6 | 131 | committee6 <- newTriadCommittee (update6 tbl6) -- updateIPVote tbl6 addr6 |
132 | sched4 <- newTVar Int.empty | 132 | sched4 <- newTVar Int.empty |
133 | sched6 <- newTVar Int.empty | 133 | sched6 <- newTVar Int.empty |
134 | return $ Routing tentative_info sched4 tbl4 committee4 sched6 tbl6 committee6 | 134 | return $ Routing tentative_info sched4 tbl4 committee4 sched6 tbl6 committee6 |