Comments documenting tox-related "a" methods.

1 files changed, 16 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index f713b926..091b1565 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1432,6 +1432,9 @@ main = runResourceT $ liftBaseWith $ \resT -> do
                     , dhtSearches = toxSearches
                     , dhtFallbackNodes = return []
                     , dhtAnnouncables = Map.fromList
+                                    -- To announce your own tox OrjBG... identity is online:
+                                    --
+                                    -- > a +toxid OrjBG.GyWuQhGc1pb0KssgmYAocohFh35Vx8mREC9Nu
                                     [ ("toxid", DHTAnnouncable { announceSendData = Right (toxAnnounceSendData tox)
                                                                , announceParseAddress = readEither
                                                                , announceParseToken = const $ readEither
@@ -1459,6 +1462,13 @@ main = runResourceT $ liftBaseWith $ \resT -> do
                                     -- r   = Rendezvous
                                     -- tok = Nonce32
                                     -- dta = PublicKey{-them-}
+                                    --
+                                    -- Using k-selected identity, to share your dht
+                                    -- key with remote tox user
+                                    -- "KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ"
+                                    -- ...
+                                    --
+                                    -- > a +dhtkey KWoEx1XQHrluIoW.3nK6BFb6XCebKWr3nDDt3V7CcoJ
                                     , ("dhtkey", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them addr -> do
                                                                         dkey <- Tox.getContactInfo tox
                                                                         sendMessage
@@ -1497,6 +1507,12 @@ main = runResourceT $ liftBaseWith $ \resT -> do
                                     -- r   = Rendezvous
                                     -- tok = Nonce32
                                     -- dta = (NoSpamId{-them-},String)
+                                    --
+                                    -- Using k-selected identity, to send a
+                                    -- friend-request to the JID $TESTZ300@OrjBG...:
+                                    --
+                                    -- > a +friend $TESTZ300@OrjBG.GyWuQhGc1pb0KssgmYAocohFh35Vx8mREC9Nu.tox Hey, add me!
+                                    --
                                     , ("friend", DHTAnnouncable { announceSendData = Left ("toxid", readEither, \me them0 addr -> do
                                                                         let (Tox.NoSpamId sum them,txt) = them0
                                                                             Tox.NoSpam nospam _ = sum