diff options
| author | James Crayne <jim.crayne@gmail.com> | 2018-05-30 03:05:52 +0000 |
|---|---|---|
| committer | James Crayne <jim.crayne@gmail.com> | 2018-05-30 03:05:52 +0000 |
| commit | e8bc15e80ce585dc5d6911d310c98ce02c16eef7 (patch) | |
| tree | 74f64fb0b47fcca3add6830bdf6f55c861ad7c09 | |
| parent | 1afb9ea88c52e7face6293ef1c837837c1c9b2ef (diff) | |
debug trace in outgoing thread
| -rw-r--r-- | src/Network/Tox/Crypto/Handlers.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index d02fc6aa..5946c530 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs | |||
| @@ -510,6 +510,7 @@ freshCryptoSession sessions | |||
| 510 | labelThread tid ("NetCryptoDequeueOutgoing." ++ show (key2id remotePublicKey)) | 510 | labelThread tid ("NetCryptoDequeueOutgoing." ++ show (key2id remotePublicKey)) |
| 511 | fix $ \loop -> do | 511 | fix $ \loop -> do |
| 512 | (_,pkt) <- atomically $ PQ.dequeueOutgoing pktoq | 512 | (_,pkt) <- atomically $ PQ.dequeueOutgoing pktoq |
| 513 | dput XNetCrypto "NetCryptoDequeueOutgoing thread... Sending encrypted Packet" | ||
| 513 | sendMessage (sessionTransport sessions) addr (NetCrypto pkt) | 514 | sendMessage (sessionTransport sessions) addr (NetCrypto pkt) |
| 514 | loop | 515 | loop |
| 515 | -- launch ping thread | 516 | -- launch ping thread |