From e150b800acd538edb4b769836bf76d9f29131a94 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Sat, 3 Nov 2018 07:22:14 -0400 Subject: since PacketRequests are now lazy, dont add them to outq --- src/Network/Tox/Crypto/Handlers.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'src/Network/Tox') diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index fd04e1c5..02adbe31 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -815,12 +815,7 @@ runUponHandshake netCryptoSession0 addr pktoq = do (nums,seqno) <- atomically $ PB.packetNumbersToRequest pktq dput XNetCrypto $ "(Request Thread) Missing Packets detected:" ++ show nums getOutGoingParam <- nqToWireIO pktoq - x <- atomically $ do - ogresult <- tryAppendQueueOutgoing getOutGoingParam pktoq (createRequestPacket seqno nums) - case ogresult of - OGSuccess x -> return x - _ -> retry - sendSessionPacket sessions addr x + sendLossy crypto netCryptoSession0 (createRequestPacket seqno nums) loop dput XNetCrypto $ "runUponHandshake: " ++ show threadid ++ " = NetCryptoRequest." ++ show (key2id remotePublicKey) ++ sidStr -- cgit v1.2.3