From 1b0d23964cc86a29f60f96346a359ef4e31c1b5c Mon Sep 17 00:00:00 2001 From: James Crayne Date: Tue, 21 Nov 2017 00:54:36 +0000 Subject: update forkPingMachine call sites with thread label param --- Connection/Tcp.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Connection') diff --git a/Connection/Tcp.hs b/Connection/Tcp.hs index 73d01c40..01e0f473 100644 --- a/Connection/Tcp.hs +++ b/Connection/Tcp.hs @@ -466,7 +466,7 @@ newConnection server sessionConduits params conkey u h inout = do _ -> ( pingInterval params , timeout params ) - new <- do pinglogic <- forkPingMachine idle_ms timeout_ms + new <- do pinglogic <- forkPingMachine "newConnection" idle_ms timeout_ms connectionThreads h pinglogic started <- atomically $ newEmptyTMVar kontvar <- atomically newEmptyTMVar @@ -778,7 +778,7 @@ tcpManager :: ( Show k, Ord k, Ord conkey ) => -> IO (Manager TCPStatus k) tcpManager grokKey s2k resolvKey sv = do rmap <- atomically $ newTVar Map.empty -- Map k (Maybe conkey) - nullping <- forkPingMachine 0 0 + nullping <- forkPingMachine "tcpManager" 0 0 return Manager { setPolicy = \k -> \case TryingToConnect -> join $ atomically $ do -- cgit v1.2.3