diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-02-17 21:48:16 +0000 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-02-17 21:48:16 +0000 |
| commit | a9e0501d099badcfe43c5075995bbed35486716b (patch) | |
| tree | fb1652a09f842791efb6d7759e5050752a8fe883 | |
| parent | fd24920df7ab2844c17bdb1bbd79d7b1043f2939 (diff) | |
| download | haskell-a9e0501d099badcfe43c5075995bbed35486716b.tar.gz | |
Fix prog003 after forkOnIO was removed
| -rw-r--r-- | testsuite/tests/concurrent/prog003/TestRun.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/concurrent/prog003/TestRun.hs b/testsuite/tests/concurrent/prog003/TestRun.hs index fd6e19de1d..13c84ea89a 100644 --- a/testsuite/tests/concurrent/prog003/TestRun.hs +++ b/testsuite/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 |