ghc/tests/concurrent/should_run/conc029.hs

   1 module Main where
   2
   3 import Exception
   4 import Concurrent
   5 import Prelude hiding (catch)
   6
   7 -- the BlockOnDeadMVar exception doesn't cause any output by default
   8
   9 main = do
  10   forkIO (do m <- newEmptyMVar; takeMVar m)
  11   print (sum [1..10000])