Commit 16aa8f7e authored by Simon Marlow's avatar Simon Marlow
Browse files

Fix this test to work properly with -threaded

parent 296011e4
......@@ -23,4 +23,6 @@ main = do
raise = do
id <- readIORef m
me <- myThreadId
forkIO $ do threadDelay 10000; throwTo me (ErrorCall "timeout")
throwTo id (ErrorCall "kapow!")
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