[project @ 2001-08-22 11:45:06 by sewardj]
[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc028.hs
1 -- test tryPutMVar
2
3 import Concurrent
4
5 main = do
6   m <- newMVar ()
7   r <- tryPutMVar m ()
8   print r