From 0e8a6f9fefc4d44d234510358497779c633aa70d Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 31 Mar 2010 14:36:28 +0000
Subject: [PATCH] add runInUnboundThread
---
smp/sieve/sieve.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/smp/sieve/sieve.hs b/smp/sieve/sieve.hs
index 42582cb5..1090510d 100644
--- a/smp/sieve/sieve.hs
+++ b/smp/sieve/sieve.hs
@@ -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)
--
GitLab