[project @ 2000-03-13 11:39:22 by simonmar]
[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc018.hs
1 import Concurrent
2
3 main = do
4   catch (do
5         m <- newMVar ()
6         putMVar m ()
7      )
8      (\e -> print e)
9