1 files changed, 1 insertions, 1 deletions
diff --git a/src/Control/Concurrent/Tasks.hs b/src/Control/Concurrent/Tasks.hs
index 287542ee..da2e589e 100644
--- a/src/Control/Concurrent/Tasks.hs
+++ b/src/Control/Concurrent/Tasks.hs
@@ -20,7 +20,7 @@ withTaskGroup :: String -> Int -> (TaskGroup -> IO ()) -> IO ()
 withTaskGroup glabel numslots action = do
    tg <- atomically $ newTChan
    cnt <- atomically $ newTVar 0
-    thread <- fork $ do
+    thread <- forkIO $ do
        myThreadId >>= flip labelThread glabel
        fix $ \again -> do
            (slot, (lbl,task)) <- atomically $ do

diff --git a/src/Control/Concurrent/Tasks.hs b/src/Control/Concurrent/Tasks.hs index 287542ee..da2e589e 100644 --- a/src/Control/Concurrent/Tasks.hs +++ b/src/Control/Concurrent/Tasks.hs
@@ -20,7 +20,7 @@ withTaskGroup :: String -> Int -> (TaskGroup -> IO ()) -> IO ()
20	withTaskGroup glabel numslots action = do	20	withTaskGroup glabel numslots action = do
21	tg <- atomically $ newTChan	21	tg <- atomically $ newTChan
22	cnt <- atomically $ newTVar 0	22	cnt <- atomically $ newTVar 0
23	thread <- fork $ do	23	thread <- forkIO $ do
24	myThreadId >>= flip labelThread glabel	24	myThreadId >>= flip labelThread glabel
25	fix $ \again -> do	25	fix $ \again -> do
26	(slot, (lbl,task)) <- atomically $ do	26	(slot, (lbl,task)) <- atomically $ do