From e55a9f0895d35dae77dcedf23de07bddc9b62330 Mon Sep 17 00:00:00 2001
From: "Edward Z. Yang" <ezyang@mit.edu>
Date: Sat, 23 Feb 2013 18:43:29 -0800
Subject: [PATCH] Follow removal of block in base.
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
---
smp/threads006/Main.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/smp/threads006/Main.hs b/smp/threads006/Main.hs
index 13296063..42a74d94 100644
--- a/smp/threads006/Main.hs
+++ b/smp/threads006/Main.hs
@@ -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 ()
--
GitLab