ghc/tests/concurrent/should_run/conc030.hs

   1 module Main where
   2
   3 import Exception
   4 import Concurrent
   5 import Prelude hiding (catch)
   6
   7 -- the ThreadKilled exception doesn't cause any output by default
   8
   9 main = do
  10   m <- newEmptyMVar
  11   id <- forkIO (takeMVar m)
  12   yield
  13   killThread id
  14   putMVar m ()
  15   print (sum [1..50000])