Commit 0e8a6f9f authored by Simon Marlow's avatar Simon Marlow

add runInUnboundThread

parent 92ded37d
......@@ -21,7 +21,7 @@ primes1 n done
sieve (p:xs) = p : sieve [x | x <- xs, not (x `mod` p == 0)]
main
= do
= runInUnboundThread $ do
[str] <- getArgs
let instances = read str :: Int
dones <- sequence (replicate instances newEmptyMVar)
......
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