blob: 60b9652ee9b16ad2258f5a4529a5ae5fb939e6cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
import Control.Concurrent
import Control.Exception
import GHC.Conc
-- test forkBlockIO
main = do
main_thread <- myThreadId
m <- newEmptyMVar
sub_thread <- mask_ $ forkIO $
sum [1..100000] `seq`
throwTo main_thread (ErrorCall "foo")
killThread sub_thread
putStrLn "oops"
|
