MicroHs-0.12.6.1: tests/Exn.hs

module Exn where
import Control.Concurrent
import Control.Exception

main :: IO ()
main = do
  catch (do threadDelay 1000; error "foo")
        (\ (e :: SomeException) -> print e)
  putStrLn "done"