New "cookie" command for tox command-line interface.

1 files changed, 9 insertions, 4 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 36b8e294..3fb1c641 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -734,10 +734,15 @@ main = do
 
             let toxDHT bkts = DHT
                     { dhtBuckets = bkts (Tox.toxRouting tox)
-                    , dhtPing    = Map.singleton "ping" $ DHTPing
-                                    { pingQuery = fmap (bool Nothing (Just ())) . Tox.ping (Tox.toxDHT tox)
-                                    , pingShowResult = show
-                                    }
+                    , dhtPing    = Map.fromList
+                                    [ ("ping", DHTPing
+                                            { pingQuery = fmap (bool Nothing (Just ())) . Tox.ping (Tox.toxDHT tox)
+                                            , pingShowResult = show
+                                            })
+                                    , ("cookie", DHTPing
+                                            { pingQuery = Tox.cookieRequest (Tox.toxCryptoKeys tox) (Tox.toxDHT tox)
+                                            , pingShowResult = show
+                                            })]
                     , dhtQuery   = Map.fromList
                                     [ ("node", DHTQuery (Tox.nodeSearch $ Tox.toxDHT tox)
                                                         (\ni -> fmap Tox.unwrapNodes