[commit: nofib] master: Follow removal of block in base. (e55a9f0)

[Edward Z. Yang]

Repository : ssh://darcs.haskell.org//srv/darcs/nofib

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e55a9f0895d35dae77dcedf23de07bddc9b62330

>---------------------------------------------------------------

commit e55a9f0895d35dae77dcedf23de07bddc9b62330
Author: Edward Z. Yang <ezyang at mit.edu>
Date:   Sat Feb 23 18:43:29 2013 -0800

    Follow removal of block in base.
    
    Signed-off-by: Edward Z. Yang <ezyang at mit.edu>

>---------------------------------------------------------------

 smp/threads006/Main.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/smp/threads006/Main.hs b/smp/threads006/Main.hs
index 1329606..42a74d9 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 ()