From b2caea0cbad781e3ee713229c33ccce23db8a2a3 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Sat, 3 Nov 2018 09:04:29 -0400 Subject: PacketRequests are lossless * PR's are lossless as I originally thought * Also packets between 16 and 192 are lossless. (not sure how/why these things got changed) --- src/Network/Tox/Crypto/Handlers.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Network/Tox/Crypto/Handlers.hs') diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index b72a07e3..aa63efee 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -815,8 +815,8 @@ runUponHandshake netCryptoSession0 addr pktoq = do (nums,seqno) <- atomically $ PB.packetNumbersToRequest pktq dput XNetCrypto $ "(Request Thread) Missing Packets detected:" ++ show nums getOutGoingParam <- nqToWireIO pktoq - sendLossyResult <- sendLossy crypto netCryptoSession0 (createRequestPacket seqno nums) - case sendLossyResult of + sendPacketRequestResult <- sendLossless crypto netCryptoSession0 (createRequestPacket seqno nums) + case sendPacketRequestResult of Left e -> dput XNetCrypto ("SEND PACKET REQUEST FAILED: " ++ e) _ -> dput XNetCrypto ( "SENT PACKET REQUEST (seqno=" ++ show seqno ++") " ++ show nums) loop -- cgit v1.2.3