MicroHs-0.13.0.0: tests/RtsExn.hs

module RtsExn where
import Control.Exception

main :: IO ()
main = do
  r <- try $ print (1 `quot` 0 ::Int)
  print (r :: Either SomeException ())