summaryrefslogtreecommitdiff
path: root/examples/dhtd.hs
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2018-06-13 17:33:30 -0400
committerjoe <joe@jerkface.net>2018-06-13 17:33:30 -0400
commit2ad144b323122c5eecfc9156a6d65a7018f003ad (patch)
treefa367b609eb08b6e2536b0d550f279eeb92eed88 /examples/dhtd.hs
parentbc8360faf51a058f3c1dd90145d4b87506e2ddfe (diff)
Facility to report rumored (indirect evidence) ip addresses.
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r--examples/dhtd.hs3
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)