diff options
Diffstat (limited to 'src/Network')
-rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 4 |
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 | |||
815 | (nums,seqno) <- atomically $ PB.packetNumbersToRequest pktq | 815 | (nums,seqno) <- atomically $ PB.packetNumbersToRequest pktq |
816 | dput XNetCrypto $ "(Request Thread) Missing Packets detected:" ++ show nums | 816 | dput XNetCrypto $ "(Request Thread) Missing Packets detected:" ++ show nums |
817 | getOutGoingParam <- nqToWireIO pktoq | 817 | getOutGoingParam <- nqToWireIO pktoq |
818 | sendLossyResult <- sendLossy crypto netCryptoSession0 (createRequestPacket seqno nums) | 818 | sendPacketRequestResult <- sendLossless crypto netCryptoSession0 (createRequestPacket seqno nums) |
819 | case sendLossyResult of | 819 | case sendPacketRequestResult of |
820 | Left e -> dput XNetCrypto ("SEND PACKET REQUEST FAILED: " ++ e) | 820 | Left e -> dput XNetCrypto ("SEND PACKET REQUEST FAILED: " ++ e) |
821 | _ -> dput XNetCrypto ( "SENT PACKET REQUEST (seqno=" ++ show seqno ++") " ++ show nums) | 821 | _ -> dput XNetCrypto ( "SENT PACKET REQUEST (seqno=" ++ show seqno ++") " ++ show nums) |
822 | loop | 822 | loop |