Commit 214a9e6c authored by Simon Marlow's avatar Simon Marlow

bump the iterations

parent 0e8a6f9f
......@@ -12,5 +12,5 @@ main :: IO ()
main = do
let numChoices = 2
cs <- replicateM numChoices channel
mapM_ forkIO [replicateM_ (50000 `div` numChoices) $ sync $ transmit c () | c <- cs]
replicateM_ 50000 $ sync $ choose [receive c (const True) | c <- cs]
mapM_ forkIO [replicateM_ (100000 `div` numChoices) $ sync $ transmit c () | c <- cs]
replicateM_ 100000 $ sync $ choose [receive c (const True) | c <- cs]
TOP = ../..
include $(TOP)/mk/boilerplate.mk
ALL_DIRS += Control/Concurrent
include $(TOP)/mk/target.mk
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment