since PacketRequests are now lazy, dont add them to outq

1 files changed, 1 insertions, 6 deletions

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