diff options
| author | joe <joe@jerkface.net> | 2017-06-13 00:16:32 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-06-13 00:16:32 -0400 |
| commit | bad22a9e32512c78298adbf6654eac2ac3524bbe (patch) | |
| tree | ddbf134c10227cbef9da9bfd880cd27fb44462d9 /src/Network/DHT/Routing.hs | |
| parent | 602ce9260950a0eb91cefe4603af5de2443e2fea (diff) | |
Changed comments for haddock parsing.
Diffstat (limited to 'src/Network/DHT/Routing.hs')
| -rw-r--r-- | src/Network/DHT/Routing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/DHT/Routing.hs b/src/Network/DHT/Routing.hs index 1d1aa44b..5c6abe5d 100644 --- a/src/Network/DHT/Routing.hs +++ b/src/Network/DHT/Routing.hs | |||
| @@ -253,12 +253,12 @@ insertBucket curTime (TryInsert info) bucket | |||
| 253 | guard (t < curTime - delta) | 253 | guard (t < curTime - delta) |
| 254 | return n | 254 | return n |
| 255 | -- All stale: | 255 | -- All stale: |
| 256 | -- map key $ PSQ.atMost (curTime - delta) $ bktNodes bucket | 256 | -- map key \$ PSQ.atMost (curTime - delta) $ bktNodes bucket |
| 257 | 257 | ||
| 258 | already_have = maybe False (const True) $ PSQ.lookup info (bktNodes bucket) | 258 | already_have = maybe False (const True) $ PSQ.lookup info (bktNodes bucket) |
| 259 | 259 | ||
| 260 | map_ns f = bucket { bktNodes = f (bktNodes bucket) } | 260 | map_ns f = bucket { bktNodes = f (bktNodes bucket) } |
| 261 | -- map_q f = bucket { bktQ = runIdentity $ f (bktQ bucket) } | 261 | -- map_q f = bucket { bktQ = runIdentity \$ f (bktQ bucket) } |
| 262 | 262 | ||
| 263 | insertBucket curTime (PingResult bad_node got_response) bucket | 263 | insertBucket curTime (PingResult bad_node got_response) bucket |
| 264 | = pure ([], Bucket (upd $ bktNodes bucket) popped) | 264 | = pure ([], Bucket (upd $ bktNodes bucket) popped) |