[project @ 2001-08-17 15:46:54 by simonmar]
[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