Send handshake response packet.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 9e023b29..364e233e 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -394,6 +394,8 @@ ncToWire getState seqno bufend pktno msg = do
 -- | called when we recieve a crypto handshake with valid cookie
 -- TODO set priority on contact addr to 0 if it is older than ForgetPeriod,
 -- then increment it regardless. (Keep addr in MinMaxPSQ in Roster.Contact)
+--
+-- This function sends a handshake response packet.
 freshCryptoSession :: NetCryptoSessions -> SockAddr -> HandshakeParams -> IO ()
 freshCryptoSession  sessions
                     addr
@@ -426,8 +428,10 @@ freshCryptoSession  sessions
                                                            , handshakeData = encrypted
                                                            }
     let myhandshake= encodeHandshake <$> mbMyhandshakeData
-    ncMyPacketNonce0 <- atomically $ newTVar newBaseNonce
     ncHandShake0 <- atomically $ newTVar myhandshake
+    forM myhandshake $ \response_handshake -> do
+        sendMessage (sessionTransport sessions) addr (NetHandshake response_handshake)
+    ncMyPacketNonce0 <- atomically $ newTVar newBaseNonce
     cookie0 <- atomically $ newTVar (Just otherCookie)
     newsession <- generateSecretKey
     ncHooks0 <- atomically $ newTVar (defaultHooks sessions)