diff options
Diffstat (limited to 'src/Network/Tox/Crypto/Handlers.hs')
-rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 2 |
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 | ||