Comments and debug prints.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/Network/Tox/Session.hs b/src/Network/Tox/Session.hs
index c672087f..968b3503 100644
--- a/src/Network/Tox/Session.hs
+++ b/src/Network/Tox/Session.hs
@@ -116,10 +116,14 @@ plainHandshakeH :: SessionParams
 plainHandshakeH sp saddr skey handshake = do
     let hd = runIdentity $ handshakeData handshake
         prelude = show saddr ++ " --> "
-    dput XNetCrypto $ prelude ++ "handshake: " ++ show (otherCookie hd, baseNonce hd)
+    dput XNetCrypto $ unlines $ map (prelude ++)
+        [ "handshake: auth=" ++ show (handshakeCookie handshake)
+        , "         : issuing=" ++ show (otherCookie hd)
+        , "         : baseNonce=" ++ show (baseNonce hd)
+        ]
     sent <- spGetSentHandshake sp skey saddr (handshakeCookie handshake) (otherCookie hd)
     -- TODO: this is always returning sent = Nothing
-    dput XNetCrypto $ " <-- (cached) handshake baseNonce" ++ show (fmap (baseNonce . snd) sent)
+    dput XNetCrypto $ " <-- (cached) handshake baseNonce " ++ show (fmap (baseNonce . snd) sent)
     forM_ sent $ \(hd_skey,hd_sent) -> do
     sk <- SessionKeys (spCrypto sp)
                       hd_skey