From 93ab4c12d244a74540b987878d94abf75cdb43d1 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Wed, 30 May 2018 07:50:09 +0000 Subject: runCryptoHook only in dqueue thread for lossless --- src/Network/Tox/Crypto/Handlers.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/Network/Tox/Crypto/Handlers.hs') diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 2a28adc5..2f8b059a 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -723,8 +723,7 @@ cryptoNetHandler sessions addr (NetCrypto (CryptoPacket nonce16 encrypted)) = do runCryptoHook session (bufferData cd) else do dput XNetCrypto "enqueue ncPacketQueue Lossless" atomically $ PQ.enqueue ncPacketQueue bufferEnd cd - runCryptoHook session (bufferData cd) - -- return Nothing + return Nothing where last2Bytes :: Nonce24 -> Word16 last2Bytes (Nonce24 bs) = case S.decode (B.drop 22 bs) of -- cgit v1.2.3