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)

1 files changed, 2 insertions, 2 deletions

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