libraries/base/tests/topHandler02.hs


1
2
3
4
5
6
7

import Control.Exception
import Control.Concurrent

-- Test that a UserInterrupt exception that propagates to the top level
-- causes the process to terminate by killing itself with SIGINT

main = throwIO UserInterrupt