"sessions" comamnd progress column

        Trade old "handled" and  "unhandled" count columns
        for a column which shows the state of session.

1 files changed, 8 insertions, 4 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index fabf0661..b845f9df 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -622,14 +622,17 @@ 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", "NextMsg", "Dropped" {-,"Handled","Unhandled" -}
+                              ,"Progress" ]
                     showPerSession (Tox.NCrypto
-                                        { ncSessionId = id
+                                        { ncState = progressVar
+                                        , ncSessionId = id
                                         , ncMyPublicKey = yourkey
                                         , ncTheirPublicKey = theirkey
                                         , ncLastNMsgs = lastN
                                         , ncSockAddr = sockAddr
                                         }) = do
+                        progress <- atomically $ readTVar progressVar
                         (num,dropped) <- atomically $ liftA2 (,) (CB.getTotal lastN) (CB.getDropped lastN)
                         as <- atomically (CB.cyclicBufferViewList lastN)
                         let (h,u) = partition (fst . snd) as
@@ -640,8 +643,9 @@ clientSession s@Session{..} sock cnum h = do
                                , show (Tox.key2id theirkey)-- "TheirKey"
                                , show num                 -- "NextMsg"
                                , show dropped             -- "Dropped"
-                               , show countHandled        -- "Handled"
-                               , show countUnhandled      -- "Unhandled"
+                            -- , show countHandled        -- "Handled"
+                            -- , show countUnhandled      -- "Unhandled"
+                               , show progress
                                ]
                 if null sessions
                  then hPutClient h "No sessions."