From e8bc15e80ce585dc5d6911d310c98ce02c16eef7 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Wed, 30 May 2018 03:05:52 +0000 Subject: debug trace in outgoing thread --- src/Network/Tox/Crypto/Handlers.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Network/Tox/Crypto') 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 labelThread tid ("NetCryptoDequeueOutgoing." ++ show (key2id remotePublicKey)) fix $ \loop -> do (_,pkt) <- atomically $ PQ.dequeueOutgoing pktoq + dput XNetCrypto "NetCryptoDequeueOutgoing thread... Sending encrypted Packet" sendMessage (sessionTransport sessions) addr (NetCrypto pkt) loop -- launch ping thread -- cgit v1.2.3