testsuite/tests/ghc-regress/concurrent/should_run/conc033.hs


1
2
3
4
5
6
7
8
9
10

import Control.Concurrent
import Control.Exception

-- !!! test that deadlock is raised as an exception properly
main = do
  r <- Control.Exception.try $ do
          m <- newEmptyMVar
          takeMVar m
	  return ()
  print (r::Either SomeException ())