Started k (keys) command.

1 files changed, 5 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index ad90d459..60019072 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -45,7 +45,7 @@ import Control.Concurrent.Lifted
 import GHC.Conc                  (labelThread)
 #endif
 
-import Crypto.Tox (zeros32)
+import Crypto.Tox (zeros32,SecretKey,PublicKey)
 import Network.UPNP as UPNP
 import Network.Address hiding (NodeId, NodeInfo(..))
 import Network.Kademlia.Search
@@ -283,6 +283,7 @@ data Session = Session
     , externalAddresses :: IO [SockAddr]
     , swarms            :: Mainline.SwarmsDatabase
     , toxkeys           :: TVar Tox.AnnouncedKeys
+    , keys              :: TVar [(SecretKey,PublicKey)]
     , signalQuit        :: MVar ()
     }
 
@@ -367,6 +368,9 @@ clientSession s@Session{..} sock cnum h = do
                                            let rs = [" ", show result]
                                            hPutClient h $ unlines rs
                           Left er -> hPutClient h er
+        ("k", "") -> cmd0 $ do
+            ks <- atomically $ readTVar keys
+            hPutClient h $ unlines $ map (mappend "  " . show . Tox.key2id . snd) ks
         ("g", s) | Just DHT{..} <- Map.lookup netname dhts
                     -> cmd0 $ do
                         -- arguments: method