Add tests for the top level exception handler
[ghc.git] / libraries / base / tests / topHandler02.hs
1 import Control.Exception
2 import Control.Concurrent
3
4 -- Test that a UserInterrupt exception that propagates to the top level
5 -- causes the process to terminate by killing itself with SIGINT
6
7 main = throwIO UserInterrupt