cli: sessions command shows addresses.

1 files changed, 3 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index fff7a98b..2b4de91e 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -692,7 +692,7 @@ clientSession s@Session{..} sock cnum h = do
             -> cmd0 $ do
                 sessions <- concat . Map.elems <$> (atomically $ readTVar (Tox.netCryptoSessionsByKey cryptosessions))
                 let sessionsReport = mapM showPerSession sessions
-                    headers = ["SessionID", "YourKey", "TheirKey", "NextMsg", "Dropped" {-,"Handled","Unhandled" -}
+                    headers = ["SessionID", "YourKey", "TheirKey", "Address", "NextMsg", "Dropped" {-,"Handled","Unhandled" -}
                               ,"Progress" ]
                     showPerSession (Tox.NCrypto
                                         { ncState = progressVar
@@ -709,8 +709,9 @@ clientSession s@Session{..} sock cnum h = do
                             countHandled   = length h
                             countUnhandled = length u
                         return [ printf "%x" id           -- "SessionID"
-                               , show (Tox.key2id yourkey) -- "YourKey"
+                               , take 8 $ show (Tox.key2id yourkey) -- "YourKey"
                                , show (Tox.key2id theirkey)-- "TheirKey"
+                               , drop 11 $ show sockAddr  -- "Address"
                                , show num                 -- "NextMsg"
                                , show dropped             -- "Dropped"
                             -- , show countHandled        -- "Handled"