From cbdcc6500d6bda9948268312fc0bfb17955e53c5 Mon Sep 17 00:00:00 2001 From: joe Date: Sat, 21 Oct 2017 21:35:37 -0400 Subject: Now searches using store command when we own the key. This gives us a usable token for storing when the search is complete. --- examples/dhtd.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'examples') diff --git a/examples/dhtd.hs b/examples/dhtd.hs index e285d2d2..324146c1 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs @@ -689,12 +689,12 @@ main = do . Tox.GetNodes) show -- NodeInfo (const Nothing)) - , ("toxid", DHTQuery (Tox.toxidSearch (Tox.onionTimeout tox) $ Tox.toxOnion tox) + , ("toxid", DHTQuery (Tox.toxidSearch (Tox.onionTimeout tox) + (Tox.toxCryptoKeys tox) + (Tox.toxOnion tox)) -- qhandler :: ni -> nid -> IO ([ni], [r], tok) (\ni nid -> - -- _todo :: IO Tox.AnnounceResponse - -- -> IO ([Tox.NodeInfo], [Crypto.PubKey.Curve25519.PublicKey], b0) - Tox.unwrapAnnounceResponse + Tox.unwrapAnnounceResponse Nothing <$> clientAddress (Tox.toxDHT tox) Nothing <*> Tox.announceH (Tox.toxRouting tox) (Tox.toxTokens tox) -- cgit v1.2.3