show message on ping recieved

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 75446608..658032df 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -996,7 +996,7 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do
             return Nothing -- drop packet, we have no session
         Just session@(NCrypto { ncIncomingTypeArray, ncState, ncPacketQueue, ncHooks,
                                 ncSessionSecret, ncTheirSessionPublic, ncTheirBaseNonce,
-                                ncPingMachine}) -> do
+                                ncPingMachine, ncSessionId}) -> do
          mbTheirBaseNonce <- atomically $ readTVar ncTheirBaseNonce
          case mbTheirBaseNonce of
           NeedHandshake -> dput XNetCrypto "CryptoPacket recieved, but we still dont have their base nonce?" >> return Nothing
@@ -1070,6 +1070,8 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do
                                 atomically $ PQ.observeOutOfBand ncPacketQueue bufferEnd
                                 runCryptoHook session (bufferData cd)
                         else do dput XNetCrypto "enqueue ncPacketQueue Lossless"
+                                when (msgID cm == PING) $
+                                    dput XNetCrypto $ "NetCrypto Recieved PING (session " ++ show ncSessionId ++")"
                                 atomically $ PQ.enqueue ncPacketQueue bufferEnd cd
                                 return Nothing
     where