bump the iterations
authorSimon Marlow <marlowsd@gmail.com>
Wed, 31 Mar 2010 14:36:44 +0000 (14:36 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 31 Mar 2010 14:36:44 +0000 (14:36 +0000)
smp/threads007/Main.hs
smp/threads007/Makefile [new file with mode: 0644]

index e3f42e2..ef12be0 100644 (file)
@@ -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 (file)
index 0000000..3e952d6
--- /dev/null
@@ -0,0 +1,6 @@
+TOP = ../..
+include $(TOP)/mk/boilerplate.mk
+
+ALL_DIRS += Control/Concurrent
+
+include $(TOP)/mk/target.mk