diff options
| author | joe <joe@jerkface.net> | 2017-06-08 00:00:56 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-06-08 00:00:56 -0400 |
| commit | d6fac9a8df0ce872ede54d6a71ca6d6c750eadc9 (patch) | |
| tree | c4a7cd804714796bc918091ebb29f4ad4009a401 /src/Network/BitTorrent/DHT/Session.hs | |
| parent | 05345c643d0bcebe17f9474d9561da6e90fff34e (diff) | |
WIP: Adapting DHT to Tox network (part 5).
Diffstat (limited to 'src/Network/BitTorrent/DHT/Session.hs')
| -rw-r--r-- | src/Network/BitTorrent/DHT/Session.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index 20dba595..aa6ee396 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs | |||
| @@ -452,7 +452,7 @@ allPeers ih = do | |||
| 452 | -- | 452 | -- |
| 453 | -- This operation used for 'find_nodes' query. | 453 | -- This operation used for 'find_nodes' query. |
| 454 | -- | 454 | -- |
| 455 | getClosest :: Eq ip => TableKey k => k -> DHT ip [NodeInfo ip] | 455 | getClosest :: Eq ip => TableKey k => k -> DHT ip [NodeInfo KMessageOf ip ()] |
| 456 | getClosest node = do | 456 | getClosest node = do |
| 457 | k <- asks (optK . options) | 457 | k <- asks (optK . options) |
| 458 | kclosest k node <$> getTable | 458 | kclosest k node <$> getTable |