handshake nonce debug prints

1 files changed, 13 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index d192e42e..485c5219 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -553,8 +553,20 @@ cryptoNetHandler sessions addr (NetHandshake (Handshake (Cookie n24 ecookie) non
             (CookieData cookieTime remotePubkey remoteDhtkey) <- (decodePlain =<< decryptSymmetric symkey n24 ecookie)
             Right $ do -- IO Monad
             decrypted <- anyRight seckeys $ \key -> do
+                            dput XNetCrypto $ "cryptoNetHandler: remotePubkey =  " ++ show (key2id $ remotePubkey)
+                            dput XNetCrypto $ "cryptoNetHandler: nonce24 =  " ++ show nonce24
                             secret <- lookupSharedSecret crypto key remotePubkey nonce24
-                            return $ (key,) <$> (decodePlain =<< decrypt secret encrypted)
+                            let step1 = decrypt secret encrypted
+                            case step1 of
+                                Left s -> do
+                                    dput XNetCrypto $ "cryptoNetHandler: (decrypt) " ++ s
+                                    return (Left s)
+                                Right pln -> do
+                                    case decodePlain pln of
+                                        Left s -> do
+                                            dput XNetCrypto $ "cryptoNetHandler: (decodePlain) " ++ s
+                                            return (Left s)
+                                        Right x -> return (Right (key,x))
             return $ do -- Either Monad
             (key,HandshakeData { baseNonce, sessionKey, cookieHash, otherCookie }) <- decrypted
             -- check cookie time < 15 seconds ago