labelThread immediately

1 files changed, 1 insertions, 1 deletions

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"