1 files changed, 17 insertions, 15 deletions

diff --git a/dht/src/Network/Tox/Relay.hs b/dht/src/Network/Tox/Relay.hs
index dd150917..96838688 100644
--- a/dht/src/Network/Tox/Relay.hs
+++ b/dht/src/Network/Tox/Relay.hs
@@ -80,12 +80,12 @@ relaySession :: TransportCrypto
                 -> Int
                 -> Handle
                 -> IO ()
-relaySession crypto clients cons sendOnion _ conid h = do
+relaySession crypto clients cons sendOnion _ thistcp h = do
     -- atomically $ modifyTVar' cons $ IntMap.insert conid h
 
     -- mhello <- fmap (>>= \h -> decryptPayload (computeSharedSecret me (helloFrom h) (helloNonce h)) h) $ hGetSized h
 
-    dput XRelay $ "Relay client session conid=" ++ show conid
+    dput XRelay $ "Relay client session tcp=" ++ show thistcp
     (hGetSized h >>=) $ mapM_ $ \helloE -> do
 
     let me = transportSecret crypto
@@ -103,13 +103,12 @@ relaySession crypto clients cons sendOnion _ conid h = do
             w24 <- transportNewNonce crypto
             return (skey, Welcome w24 $ pure dta)
 
-        {-
-        dput XRelay $ unlines [ "Relay to send welcome to client. conid=" ++ show conid
-                              , show welcome
-                              ]
-        -}
         B.hPut h $ encode $ encryptPayload (noncef $ welcomeNonce welcome) welcome
-        dput XRelay $ "Relay welcomes (conid=" ++ show conid ++ ") " ++ showKey256 them
+        dput XRelay $ unlines
+            [ "Relay welcomes (tcp=" ++ show thistcp ++ ") " ++ showKey256 them
+            -- , "   hello=" ++ show hello
+            -- , " welcome=" ++ show welcome
+            ]
 
         noncef' <- let them' = sessionPublicKey (runIdentity $ helloData hello)
                    in lookupNonceFunction crypto me' them'
@@ -143,22 +142,25 @@ relaySession crypto clients cons sendOnion _ conid h = do
                 atomically $ modifyTVar' cons $ Map.insert (helloFrom hello) (sendPacket,session)
                 return (sendPacket,session)
 
-            handlePacket cons conid (helloFrom hello) crypto sendOnion sendPacket session pkt0
+            handlePacket cons thistcp (helloFrom hello) crypto sendOnion sendPacket session pkt0
 
-            atomically $ modifyTVar' clients $ IntMap.insert conid $
+            atomically $ modifyTVar' clients $ IntMap.insert thistcp $
                 \p -> do
-                    dput XOnion $ "Sending onion reply to TCP client conid="++show conid
+                    dput XOnion $ unlines
+                        [ "Sending onion reply to TCP client tcp="++show thistcp
+                        , " pkt0=" ++ show pkt0
+                        ]
                     sendPacket p
 
             flip fix (incrementNonce24 base)  $ \loop n24 -> do
                 m <- readPacket n24
                 forM_ m $ \p -> do
-                    handlePacket cons conid (helloFrom hello) crypto sendOnion sendPacket session p
+                    handlePacket cons thistcp (helloFrom hello) crypto sendOnion sendPacket session p
                     loop (incrementNonce24 n24)
          `finally` do
-            atomically $ modifyTVar' clients $ IntMap.delete conid
+            atomically $ modifyTVar' clients $ IntMap.delete thistcp
             disconnect cons (helloFrom hello)
-            dput XRelay $ "Relay client session closed. conid=" ++ show conid
+            dput XRelay $ "Relay client session closed. tcp=" ++ show thistcp
 
 handlePacket :: TVar (Map PublicKey (RelayPacket -> IO (), TVar RelaySession)) -- ^ All sessions.
                       -> Int -- ^ TCP client number.
@@ -211,7 +213,7 @@ handlePacket cons thistcp thisKey crypto sendOnion sendToClient session = \case
     RelayPing x -> sendToClient $ RelayPong x -- TODO x==0 is invalid.  Do we care?
 
     OOBSend them bs -> do
-        dput XRelay $ "OOB send to " ++ showKey256 them
+        dput XRelay $ "OOB send from " ++ showKey256 thisKey ++ " to " ++ showKey256 them
         m <- atomically $ Map.lookup them <$> readTVar cons
         forM_ m $ \(sendToThem,_) -> sendToThem $ OOBRecv thisKey bs