1 files changed, 12 insertions, 4 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 3d6b5f7b..c03df3cc 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -651,6 +651,7 @@ clientSession s@Session{..} sock cnum h = do
 
         ("roster", s) -> cmd0 $ join $ atomically $ do
             let ContactInfo{accounts} = roster
+                nosummary = not (null s)
             as <- readTVar accounts
             css <- forM as $ \acnt -> do
                     cs <- readTVar (contacts acnt)
@@ -659,9 +660,16 @@ clientSession s@Session{..} sock cnum h = do
                         ca <- readTVar $ contactLastSeenAddr c
                         cf <- readTVar $ contactFriendRequest c
                         cp <- readTVar $ contactPolicy c
-                        return $ [ maybe "none" show cp
-                                 , maybe "" (show . Tox.key2id . Tox.dhtpk . snd) ck
-                                 , maybe "" (show . snd) ca
+                        let showPolicy TryingToConnect   = "*"
+                            showPolicy OpenToConnect     = "o"
+                            showPolicy RefusingToConnect = "x"
+                            summarizeNodeId | nosummary = id
+                                            | otherwise = take 6
+                            summarizeAddr | nosummary = id
+                                          | otherwise = reverse . take 20 . reverse
+                        return $ [ maybe "/" showPolicy cp
+                                 , maybe "" (summarizeNodeId . show . Tox.key2id . Tox.dhtpk . snd) ck
+                                 , maybe "" (summarizeAddr . show . snd) ca
                                  , maybe "" (show . T.decodeUtf8 . Tox.friendRequestText . snd) cf
                                  ]
             return $ do
@@ -669,7 +677,7 @@ clientSession s@Session{..} sock cnum h = do
                     let cs = map (\(toxid,xs) -> show toxid : xs)
                                  $ HashMap.toList xss
                     hPutClientChunk h $ unlines [ show me, map (const '-') (show me) ]
-                    hPutClientChunk h $ showColumns $ ["ToxID","Policy","NodeID","Address","FR text"]
+                    hPutClientChunk h $ showColumns $ ["ToxID","","NodeID","Address","FR text"]
                                                       : cs
                 hPutClient h ""