debug traces of packet request send/recieve

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 82aa8f12..2e00d61b 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -1133,7 +1133,9 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do
                         else do dput XNetCrypto $ "enqueue ncPacketQueue Lossless " ++ show cm
                                 when (msgID cm == PING) $
                                     dput XNetCrypto $ "NetCrypto Recieved PING (session " ++ show ncSessionId ++")"
-                                when (msgID cm == PacketRequest) . atomically $ do
+                                when (msgID cm == PacketRequest) $ do
+                                     dput XNetCrypto $ "PACKETREquest: " ++ showCryptoMsg bufferEnd cm
+                                     atomically $ do
                                         num <- CB.getNextSequenceNum ncStoredRequests
                                         CB.enqueue ncStoredRequests num cd
                                 atomically $ PQ.enqueue ncPacketQueue bufferEnd cd