summaryrefslogtreecommitdiff
path: root/src/Network/Tox/Crypto/Handlers.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
-rw-r--r--src/Network/Tox/Crypto/Handlers.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index 3acc6350..2a28adc5 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -728,7 +728,7 @@ cryptoNetHandler sessions addr (NetCrypto (CryptoPacket nonce16 encrypted)) = do
728 where 728 where
729 last2Bytes :: Nonce24 -> Word16 729 last2Bytes :: Nonce24 -> Word16
730 last2Bytes (Nonce24 bs) = case S.decode (B.drop 22 bs) of 730 last2Bytes (Nonce24 bs) = case S.decode (B.drop 22 bs) of
731 Right n -> byteSwap16 n -- trace ("byteSwap16 " ++ printf "0x%x" n ++ " = " ++ printf "0x%x" (byteSwap16 n)) $ byteSwap16 n 731 Right n -> n -- trace ("byteSwap16 " ++ printf "0x%x" n ++ " = " ++ printf "0x%x" (byteSwap16 n)) $ byteSwap16 n
732 _ -> error "unreachable-last2Bytes" 732 _ -> error "unreachable-last2Bytes"
733 dATA_NUM_THRESHOLD = 21845 -- = 65535 / 3 733 dATA_NUM_THRESHOLD = 21845 -- = 65535 / 3
734 734