Commit d9b9ede0 authored by Simon Marlow's avatar Simon Marlow
Browse files

make this test slightly more robust (fix occasional failure with threaded2)

parent 6c3032f0
...@@ -18,7 +18,7 @@ main = do ...@@ -18,7 +18,7 @@ main = do
sleepBlock 1 sleepBlock 1
putStrLn "newThread back again" putStrLn "newThread back again"
putMVar th "1 sec later" putMVar th "1 sec later"
yield -- make sure the newly created thread is run. threadDelay 200000 -- make sure the newly created thread is run.
putStrLn "mainThread" putStrLn "mainThread"
x <- takeMVar th x <- takeMVar th
putStrLn x putStrLn x
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment