From 214a9e6c947b2f72292eff0f42b694a8657b2c5b Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 31 Mar 2010 14:36:44 +0000
Subject: [PATCH] bump the iterations

---
 smp/threads007/Main.hs  | 4 ++--
 smp/threads007/Makefile | 6 ++++++
 2 files changed, 8 insertions(+), 2 deletions(-)
 create mode 100644 smp/threads007/Makefile

diff --git a/smp/threads007/Main.hs b/smp/threads007/Main.hs
index e3f42e2a..ef12be0d 100644
--- a/smp/threads007/Main.hs
+++ b/smp/threads007/Main.hs
@@ -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] 
diff --git a/smp/threads007/Makefile b/smp/threads007/Makefile
new file mode 100644
index 00000000..3e952d60
--- /dev/null
+++ b/smp/threads007/Makefile
@@ -0,0 +1,6 @@
+TOP = ../..
+include $(TOP)/mk/boilerplate.mk
+
+ALL_DIRS += Control/Concurrent
+
+include $(TOP)/mk/target.mk
-- 
GitLab