ghc/tests/concurrent/should_run/conc008.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 module Main where
   4
   5 import Concurrent
   6 import Exception
   7
   8 -- Send ourselves a KillThread signal, catch it and recover.
   9
  10 main = do
  11   id <- myThreadId
  12   catchAllIO (killThread id) (\e -> putStr (show e))