Commit 786cf63d authored by simonmar's avatar simonmar

[project @ 2000-03-17 10:25:16 by simonmar]

Add test for interruptible ops.
parent afb300f5
import Concurrent
import Exception
main = do
m <- newEmptyMVar
t <- forkIO (blockAsyncExceptions $ takeMVar m)
threadDelay 100000
raiseInThread t (ErrorCall "I'm Interruptible")
threadDelay 100000
putMVar m () -- to avoid t being garbage collected
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