Quicker forkTask thread label.

1 files changed, 2 insertions, 2 deletions

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