runCryptoHook only in dqueue thread for lossless

1 files changed, 1 insertions, 2 deletions

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