Skip to content

Instantly share code, notes, and snippets.

@clrnd

clrnd/broken_mapTask_.hs

Created October 4, 2015 10:31
Show Gist options
  • Save clrnd/67c5717affe6bba891f3 to your computer and use it in GitHub Desktop.
Save clrnd/67c5717affe6bba891f3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
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!"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment