Ticket #2913: exceptions.hs

File exceptions.hs, 482 bytes (added by StephenBlackheath, 5 years ago)

Test case

Line 
1{-# LANGUAGE DeriveDataTypeable #-}
2
3import qualified Control.OldException as OE
4import qualified Control.Exception as E
5import Data.Typeable
6
7data ThrowHandsUpInTheAirException = ThrowHandsUpInTheAirException String
8     deriving (Eq, Show, Typeable)
9instance E.Exception ThrowHandsUpInTheAirException where
10
11main = do
12    Prelude.catch (
13            E.throwIO $ ThrowHandsUpInTheAirException "oh no!"
14        )
15        (\exc ->
16            putStrLn $ "test passed"
17        )
18