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

import Concurrent

main = do
  catch (do
        m <- newMVar ()
        putMVar m ()
     )
     (\e -> print e)