clrnd · October 4, 2015 10:31
diff --git a/broken_mapTask_.hs b/broken_mapTask_.hs
 module Main where

 import Control.Concurrent.Async.Pool

 main :: IO ()
 main = do
    withTaskGroup 5 $ \g ->
        mapTasks_ g $ map print [1..10]
    putStrLn "Done!"
	module Main where

	import Control.Concurrent.Async.Pool

	main :: IO ()
	main = do
	withTaskGroup 5 $ \g ->
	mapTasks_ g $ map print [1..10]
	putStrLn "Done!"