diff options
author | joe <joe@jerkface.net> | 2018-06-13 17:33:30 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2018-06-13 17:33:30 -0400 |
commit | 2ad144b323122c5eecfc9156a6d65a7018f003ad (patch) | |
tree | fa367b609eb08b6e2536b0d550f279eeb92eed88 /examples/dhtd.hs | |
parent | bc8360faf51a058f3c1dd90145d4b87506e2ddfe (diff) |
Facility to report rumored (indirect evidence) ip addresses.
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r-- | examples/dhtd.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index d6da567a..d7ee040f 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
@@ -1605,7 +1605,8 @@ main = runResourceT $ liftBaseWith $ \resT -> do | |||
1605 | })] | 1605 | })] |
1606 | , dhtQuery = Map.fromList | 1606 | , dhtQuery = Map.fromList |
1607 | [ ("node", DHTQuery | 1607 | [ ("node", DHTQuery |
1608 | { qsearch = (Tox.nodeSearch $ Tox.toxDHT tox) | 1608 | { qsearch = Tox.nodeSearch (Tox.toxDHT tox) |
1609 | (Tox.nodesOfInterest $ Tox.toxRouting tox) | ||
1609 | , qhandler = (\ni -> fmap Tox.unwrapNodes | 1610 | , qhandler = (\ni -> fmap Tox.unwrapNodes |
1610 | . Tox.getNodesH (Tox.toxRouting tox) ni | 1611 | . Tox.getNodesH (Tox.toxRouting tox) ni |
1611 | . Tox.GetNodes) | 1612 | . Tox.GetNodes) |