Comments & variable names only

1 files changed, 25 insertions, 8 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 78090794..8fd707cd 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -684,7 +684,8 @@ clientSession s@Session{..} sock cnum h = do
                 hPutClientChunk h $ unlines [ dns, "", "Friend Requests" ]
                 hPutClient h $ showReport frs
 
-        ("sessions", s') | "" <- strp s'
+        -- list information about current netcrypto sesssions
+        ("sessions", s) | "" <- strp s
             -> cmd0 $ do
                 sessions <- concat . Map.elems <$> (atomically $ readTVar (Tox.netCryptoSessionsByKey cryptosessions))
                 let sessionsReport = mapM showPerSession sessions
@@ -717,31 +718,45 @@ clientSession s@Session{..} sock cnum h = do
                  else do
                     rows <- sessionsReport
                     hPutClient h (showColumns (headers:rows))
-        ("session", s') | (idStr,"online",unstripped) <- twoWords s'
+        -- session <N> online
+        -- send ONLINE packet to session N
+        ("session", s) | (idStr,"online",unstripped) <- twoWords s
                         , stripped <- strp unstripped
                         -> cmd0 $
                             hPutClient h "TODO: parse idStr to get sessionId, lookup session, call sendOnline"
-        ("session", s') | (idStr,"offline",unstripped) <- twoWords s'
+        -- session <N> online
+        -- send OFFLINE packet to session N
+        ("session", s) | (idStr,"offline",unstripped) <- twoWords s
                         , stripped <- strp unstripped
                         -> cmd0 $
                             hPutClient h "TODO: parse idStr to get sessionId, lookup session, call sendOffline"
-        ("session", s') | (idStr,"kill",unstripped) <- twoWords s'
+        -- session <N> kill
+        -- send KILL packet to session N
+        ("session", s) | (idStr,"kill",unstripped) <- twoWords s
                         , stripped <- strp unstripped
                         -> cmd0 $
                             hPutClient h "TODO: parse idStr to get sessionId, lookup session, call sendKill"
-        ("session", s') | (idStr,"nick",unstripped) <- twoWords s'
+        -- session <N> nick <NICKNAME>
+        -- send NICK packet to session N, setting nick to NICKNAME
+        ("session", s) | (idStr,"nick",unstripped) <- twoWords s
                         , nick <- strp unstripped
                         -> cmd0 $
                             hPutClient h "TODO: parse idStr to get sessionId, lookup session, call setNick with crypto session and nick"
-        ("session", s') | (idStr,"status",unstripped) <- twoWords s'
+        -- session <N> status <STATUS>
+        -- send USERSTATUS packet to session N, set status to STATUS
+        ("session", s) | (idStr,"status",unstripped) <- twoWords s
                         , status <- strp unstripped
                         -> cmd0 $
                             hPutClient h "TODO: parse idStr to get sessionId, parse status, call setStatus"
-        ("session", s') | (idStr,"typing",unstripped) <- twoWords s'
+        -- session <N> typing <TYPINGSTATUS>
+        -- send TYPING packet to session N, set typing to TYPINGSTATUS
+        ("session", s) | (idStr,"typing",unstripped) <- twoWords s
                         , typingstatus <- strp unstripped
                         -> cmd0 $
                             hPutClient h "TODO: parse idStr to get sessionId, parse typing status, call setTyping"
-        ("session", s') | (idStr,"statusmsg",statusmsg) <- twoWords s'
+        -- session <N> statusmsg <MSG>
+        -- send STATUSMESSAGE packet to session N, setting status message to MSG
+        ("session", s) | (idStr,"statusmsg",statusmsg) <- twoWords s
                         -> cmd0 $
                             hPutClient h "TODO: parse idStr to get sessionId, call setStatusMsg"
 
@@ -760,6 +775,8 @@ clientSession s@Session{..} sock cnum h = do
                 hPutClientChunk h $ "trampolines: " ++ show (IntMap.size ts) ++ "\n"
                 hPutClient h $ showColumns $ ["","responses","timeouts"]:r
 
+        -- necrypto <FRIEND-TOXID>
+        -- establish a netcrypto session with specified person
         ("netcrypto", s)
                     | Just DHT{..} <- Map.lookup netname dhts
                     -> cmd0 $ do