Show rendezvous addresses for toxid search results.

1 files changed, 3 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 37f16f02..2b0191a3 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -595,13 +595,14 @@ main = do
                                                             -- _todo :: IO Tox.AnnounceResponse
                                                             --       -> IO ([Tox.NodeInfo], [Crypto.PubKey.Curve25519.PublicKey], b0)
                                                             Tox.unwrapAnnounceResponse
-                                                                <$> Tox.announceH (Tox.toxRouting tox)
+                                                                <$> clientAddress (Tox.toxDHT tox) Nothing
+                                                                <*> Tox.announceH (Tox.toxRouting tox)
                                                                                   (Tox.toxTokens tox)
                                                                                   (Tox.toxAnnouncedKeys tox)
                                                                                   (Tox.OnionDestination ni Nothing)
                                                                                   (Tox.AnnounceRequest zeros32 nid Tox.zeroID))
                                                          show -- PublicKey
-                                                         (const Nothing)) -- TODO: show token
+                                                         (fmap show))
                                     ]
                     , dhtParseId  = readEither :: String -> Either String Tox.NodeId
                     , dhtSearches = toxSearches