Typo
[packages/base.git] / 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