summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs3
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
723 runCryptoHook session (bufferData cd) 723 runCryptoHook session (bufferData cd)
724 else do dput XNetCrypto "enqueue ncPacketQueue Lossless" 724 else do dput XNetCrypto "enqueue ncPacketQueue Lossless"
725 atomically $ PQ.enqueue ncPacketQueue bufferEnd cd 725 atomically $ PQ.enqueue ncPacketQueue bufferEnd cd
726 runCryptoHook session (bufferData cd) 726 return Nothing
727 -- return Nothing
728 where 727 where
729 last2Bytes :: Nonce24 -> Word16 728 last2Bytes :: Nonce24 -> Word16
730 last2Bytes (Nonce24 bs) = case S.decode (B.drop 22 bs) of 729 last2Bytes (Nonce24 bs) = case S.decode (B.drop 22 bs) of