[commit: testsuite] master: Fix prog003 after forkOnIO was removed (031dbd6)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/031dbd6fa7e32313962e2aa6cd70b92f07edeb3f

>---------------------------------------------------------------

commit 031dbd6fa7e32313962e2aa6cd70b92f07edeb3f
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Feb 17 21:48:16 2013 +0000

    Fix prog003 after forkOnIO was removed

>---------------------------------------------------------------

 tests/concurrent/prog003/TestRun.hs |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/concurrent/prog003/TestRun.hs b/tests/concurrent/prog003/TestRun.hs
index fd6e19d..13c84ea 100644
--- a/tests/concurrent/prog003/TestRun.hs
+++ b/tests/concurrent/prog003/TestRun.hs
@@ -176,10 +176,10 @@ run_testdata testdata_fname mode = do
 --          ; wait <- atomically (newTVar 0)
           ; wait <- newEmptyMVar
           ; start <- getCurrentTime
-          ; zipWithM (\n work -> forkOnIO n (do { executeTasks nl work
-                                                ; putMVar wait () }))
-                                                --atomically(do counter <- readTVar wait
---                                                                writeTVar wait (counter+1)) }))
+          ; zipWithM (\n work -> forkOn n (do { executeTasks nl work
+                                              ; putMVar wait () }))
+                                              --atomically(do counter <- readTVar wait
+--                                                              writeTVar wait (counter+1)) }))
             [0..] works
           ; replicateM_ (length works) (takeMVar wait)
 --          ; atomically ( do { counter <- readTVar wait