diff options
author | joe <joe@jerkface.net> | 2017-09-15 05:22:35 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-09-15 05:22:35 -0400 |
commit | bdecc98839673136ab1d0695ab6497197f80f38e (patch) | |
tree | 9867d20b324be84f0712f720ca2724615d63d8e7 /src/Network/Tox/DHT/Handlers.hs | |
parent | 358654f6afeeef89a9fbec8c7aa3c21c84ed3e53 (diff) |
Fixed haddock parse errors.
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 |