From 5b9374c79de82025bbb0ce47e0a93e6ddc0ece6c Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Fri, 13 Dec 2019 12:06:06 -0500 Subject: Quicker forkTask thread label. --- tasks/src/Control/Concurrent/Tasks.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tasks/src') diff --git a/tasks/src/Control/Concurrent/Tasks.hs b/tasks/src/Control/Concurrent/Tasks.hs index da2e589e..73c8152e 100644 --- a/tasks/src/Control/Concurrent/Tasks.hs +++ b/tasks/src/Control/Concurrent/Tasks.hs @@ -29,10 +29,10 @@ withTaskGroup glabel numslots action = do writeTVar cnt (succ slot) t <- readTChan tg return (slot,t) - _ <- fork $ do - myThreadId >>= flip labelThread (intercalate "." [glabel,show slot,lbl]) + t <- fork $ do task `catch` (\(SomeException e) -> return ()) atomically $ modifyTVar' cnt pred + labelThread t (intercalate "." [glabel,show slot,lbl]) again action (TaskGroup tg) `onException` killThread thread atomically $ do -- cgit v1.2.3