summaryrefslogtreecommitdiff
path: root/src/Network/Tox/Crypto
diff options
context:
space:
mode:
authorJames Crayne <jim.crayne@gmail.com>2018-05-30 05:37:49 +0000
committerJames Crayne <jim.crayne@gmail.com>2018-05-30 05:37:49 +0000
commitb8148ecef7246b04f103ec90e4022db7d1c78da6 (patch)
treef2ebf190387c53c662ff4d859d9cbdb1e259d3bf /src/Network/Tox/Crypto
parentff7f40546a2b488d17ea9ccf2d2a808c81c63d51 (diff)
no trace on byteSwap
Diffstat (limited to 'src/Network/Tox/Crypto')
-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 453d4b08..3acc6350 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 -> trace ("byteSwap16 " ++ printf "0x%x" n ++ " = " ++ printf "0x%x" (byteSwap16 n)) $ byteSwap16 n 731 Right n -> byteSwap16 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