Follow removal of block in base.
authorEdward Z. Yang <ezyang@mit.edu>
Sun, 24 Feb 2013 02:43:29 +0000 (18:43 -0800)
committerEdward Z. Yang <ezyang@mit.edu>
Sun, 24 Feb 2013 02:43:29 +0000 (18:43 -0800)
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
smp/threads006/Main.hs

index 1329606..42a74d9 100644 (file)
@@ -59,7 +59,7 @@ main :: IO ()
 main = do
     hSetBuffering stdout NoBuffering
     [nthreads] <- fmap (map read) getArgs
-    tids <- replicateM nthreads $ block $ forkIO $ return ()
+    tids <- replicateM nthreads . mask $ \_ -> forkIO $ return ()
     m <- newEmptyMVar
     -- do it in a subthread to avoid bound-thread overhead
     forkIO $ do mapM_ killThread tids; putMVar m ()