[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc028.hs

-- test tryPutMVar

import Concurrent

main = do
  m <- newMVar ()
  r <- tryPutMVar m ()
  print r