From e89145df011e7737c59a1ce4568432e2e9291871 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sat, 28 Oct 2017 17:05:42 -0400
Subject: New "cookie" command for tox command-line interface.

---
 examples/dhtd.hs | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

(limited to 'examples/dhtd.hs')

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
-- 
cgit v1.2.3