testsuite/tests/concurrent/should_run/conc008.hs


1
2
3
4
5
6
7
8
9
10
11
12


module Main where

import Control.Concurrent
import Control.Exception

-- Send ourselves a KillThread signal, catch it and recover.

main = do 
  id <- myThreadId
  Control.Exception.catch (killThread id) $
     \e -> putStr (show (e::SomeException))