Commit 373460d1 authored by Simon Marlow's avatar Simon Marlow

add an extra delay to make this test a bit more robust

parent d7cfe1f7
......@@ -29,6 +29,7 @@ main = do
`Control.Exception.catch`
\e -> putStrLn ("caught1: " ++ show (e::SomeException))
)
threadDelay 10000
takeMVar m2
)
`Control.Exception.catch`
......
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