Commit 25d48634 authored by Simon Marlow's avatar Simon Marlow

fix an unexpected pass

parent 6339c4db
......@@ -36,7 +36,7 @@ test('4030', omit_ways('ghci'), compile_and_run, ['-O'])
# each of these runs for about a second
test('throwto001', [reqlib('random'), extra_run_opts('1000 2000')],
compile_and_run, [''])
test('throwto002', [reqlib('random'), ignore_output], compile_and_run, [''])
test('throwto002', [reqlib('random')], compile_and_run, [''])
test('throwto003', normal, compile_and_run, [''])
test('mask001', normal, compile_and_run, [''])
......
......@@ -15,7 +15,7 @@ main = do
t1 <- block $ forkIO (thread r t2)
t2 <- block $ forkIO (thread r t1)
threadDelay 1000000
readIORef r >>= print
readIORef r >>= print . (/= 0)
thread r t = run
where
......
Markdown is supported
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