diff options
author | joe <joe@jerkface.net> | 2017-10-21 21:35:37 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2017-10-21 21:35:37 -0400 |
commit | cbdcc6500d6bda9948268312fc0bfb17955e53c5 (patch) | |
tree | c45cf7e0a9d362799a984d81ca502bba808c7046 /examples/dhtd.hs | |
parent | e508e05ae839091a109f3c253dcfeadb6f40982d (diff) |
Now searches using store command when we own the key.
This gives us a usable token for storing when the search is complete.
Diffstat (limited to 'examples/dhtd.hs')
-rw-r--r-- | examples/dhtd.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 | |||
689 | . Tox.GetNodes) | 689 | . Tox.GetNodes) |
690 | show -- NodeInfo | 690 | show -- NodeInfo |
691 | (const Nothing)) | 691 | (const Nothing)) |
692 | , ("toxid", DHTQuery (Tox.toxidSearch (Tox.onionTimeout tox) $ Tox.toxOnion tox) | 692 | , ("toxid", DHTQuery (Tox.toxidSearch (Tox.onionTimeout tox) |
693 | (Tox.toxCryptoKeys tox) | ||
694 | (Tox.toxOnion tox)) | ||
693 | -- qhandler :: ni -> nid -> IO ([ni], [r], tok) | 695 | -- qhandler :: ni -> nid -> IO ([ni], [r], tok) |
694 | (\ni nid -> | 696 | (\ni nid -> |
695 | -- _todo :: IO Tox.AnnounceResponse | 697 | Tox.unwrapAnnounceResponse Nothing |
696 | -- -> IO ([Tox.NodeInfo], [Crypto.PubKey.Curve25519.PublicKey], b0) | ||
697 | Tox.unwrapAnnounceResponse | ||
698 | <$> clientAddress (Tox.toxDHT tox) Nothing | 698 | <$> clientAddress (Tox.toxDHT tox) Nothing |
699 | <*> Tox.announceH (Tox.toxRouting tox) | 699 | <*> Tox.announceH (Tox.toxRouting tox) |
700 | (Tox.toxTokens tox) | 700 | (Tox.toxTokens tox) |