diff options
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
-rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 4 |
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 | |||
1133 | else do dput XNetCrypto $ "enqueue ncPacketQueue Lossless " ++ show cm | 1133 | else do dput XNetCrypto $ "enqueue ncPacketQueue Lossless " ++ show cm |
1134 | when (msgID cm == PING) $ | 1134 | when (msgID cm == PING) $ |
1135 | dput XNetCrypto $ "NetCrypto Recieved PING (session " ++ show ncSessionId ++")" | 1135 | dput XNetCrypto $ "NetCrypto Recieved PING (session " ++ show ncSessionId ++")" |
1136 | when (msgID cm == PacketRequest) . atomically $ do | 1136 | when (msgID cm == PacketRequest) $ do |
1137 | dput XNetCrypto $ "PACKETREquest: " ++ showCryptoMsg bufferEnd cm | ||
1138 | atomically $ do | ||
1137 | num <- CB.getNextSequenceNum ncStoredRequests | 1139 | num <- CB.getNextSequenceNum ncStoredRequests |
1138 | CB.enqueue ncStoredRequests num cd | 1140 | CB.enqueue ncStoredRequests num cd |
1139 | atomically $ PQ.enqueue ncPacketQueue bufferEnd cd | 1141 | atomically $ PQ.enqueue ncPacketQueue bufferEnd cd |