4 -- Test blocking of async exceptions in an exception handler.
5 -- The exception raised in the main thread should not be delivered
6 -- until the first exception handler finishes.
8 main_thread <- myThreadId
10 forkIO (do { takeMVar m; raiseInThread main_thread (ErrorCall "foo") })
12 `catchAllIO` (\e -> do putMVar m ()
16 `catchAllIO` (\e -> putStrLn ("caught: " ++ show e))