Now searches using store command when we own the key.

This gives us a usable token for storing when the search is complete.

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
                                                                 . 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)