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.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index aa63efee..bf01e1b5 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -1120,8 +1120,8 @@ sessionPacketH sessions addrRaw (CryptoPacket nonce16 encrypted) = do
1120 isLossy (Msg mid) | lossyness mid == Lossy = True 1120 isLossy (Msg mid) | lossyness mid == Lossy = True
1121 isLossy _ = False 1121 isLossy _ = False
1122 ack = bufferStart -- Earliest sequence number they've seen from us. 1122 ack = bufferStart -- Earliest sequence number they've seen from us.
1123 if isLossy msgTypMapped 1123 if (msgTypMapped /= Msg Padding && isLossy msgTypMapped) || isLossy msgTyp
1124 then do dput XNetCrypto $ "enqueue ncPacketQueue Lossy " ++ show cm 1124 then do dput XNetCrypto $ "enqueue ncPacketQueue Lossy (msgTyp=" ++ show msgTyp ++ " msgTypMapped=" ++show msgTypMapped ++ ") " ++ show cm
1125 atomically $ PB.grokInboundPacket ncPacketBuffer 1125 atomically $ PB.grokInboundPacket ncPacketBuffer
1126 (PacketReceivedLossy bufferEnd cd ack) 1126 (PacketReceivedLossy bufferEnd cd ack)
1127 runCryptoHook session (bufferData cd) 1127 runCryptoHook session (bufferData cd)
@@ -1231,7 +1231,8 @@ knownMsgs :: [Word64]
1231knownMsgs = 1231knownMsgs =
1232 concat [ map (fromIntegral . fromEnum) [ PacketRequest .. KillPacket ] 1232 concat [ map (fromIntegral . fromEnum) [ PacketRequest .. KillPacket ]
1233 , map (const 0) [ 3 .. 15 ] -- UnspecifiedPacket 1233 , map (const 0) [ 3 .. 15 ] -- UnspecifiedPacket
1234 , map (const 0) [ 16 .. 23 ] -- MessengerLoseless 1234 , map (fromIntegral . fromEnum) [ PING ]
1235 , map (const 0) [ 17 .. 23 ] -- MessengerLoseless
1235 , map (fromIntegral . fromEnum) [ ONLINE .. OFFLINE ] 1236 , map (fromIntegral . fromEnum) [ ONLINE .. OFFLINE ]
1236 , map (const 0) [ 26 .. 47 ] -- MessengerLoseless 1237 , map (const 0) [ 26 .. 47 ] -- MessengerLoseless
1237 , map (fromIntegral . fromEnum) [ NICKNAME .. TYPING ] 1238 , map (fromIntegral . fromEnum) [ NICKNAME .. TYPING ]