Commit 46b4e5c1 authored by Simon Marlow's avatar Simon Marlow
Browse files

robustify the test a little

parent fb609cf3
......@@ -22,3 +22,5 @@ main = do
forkOS (sequence_ $ repeat $ atomically (inc tv))
forkOS (bad m)
takeMVar m
threadDelay 100000 -- allow time for the exception to be printed
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