From 7810e9bcde99a4bc05268b343ae3c21ae6fe8d7d Mon Sep 17 00:00:00 2001 From: James Crayne Date: Mon, 18 Jun 2018 03:24:22 +0000 Subject: labelThread immediately --- src/Network/Tox/Crypto/Handlers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network') diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs index 2632c936..75446608 100644 --- a/src/Network/Tox/Crypto/Handlers.hs +++ b/src/Network/Tox/Crypto/Handlers.hs @@ -774,8 +774,8 @@ runUponHandshake netCryptoSession0 addr pktoq = do pingMachine <- forkPingMachine ("NetCrypto." ++ show (key2id remotePublicKey)) (8000 + fuzz) 4000 pingThreadId <- forkIO $ do tid <- myThreadId - event <- atomically $ pingWait pingMachine labelThread tid ("NetCryptoPingSender." ++ show (key2id remotePublicKey) ++ "." ++ show (ncSessionId netCryptoSession0)) + event <- atomically $ pingWait pingMachine case event of PingIdle -> do dput XNetCrypto $ "pingThread (session: " ++ show (ncSessionId netCryptoSession0) ++ ") PingIdle" -- cgit v1.2.3