1 2 3 4 5 6 7 8 9
module Main where import Control.Concurrent import Control.Exception main = do id <- myThreadId throwTo id (ErrorCall "hello")