ghc/tests/concurrent/should_run/conc020.hs

   1 import Concurrent
   2 import Exception
   3
   4 main = do
   5   m <- newEmptyMVar
   6   t <- forkIO (blockAsyncExceptions $ takeMVar m)
   7   threadDelay 100000
   8   raiseInThread t (ErrorCall "I'm Interruptible")
   9   threadDelay 100000
  10   putMVar m ()  -- to avoid t being garbage collected