[project @ 2000-03-21 15:54:25 by simonmar]

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

import Concurrent
import Exception

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