path: root/testsuite/tests/ghc-regress/concurrent/should_run/conc009.hs

module Main where

import Control.Concurrent
import Control.Exception

main = do 
  id <- myThreadId
  throwTo id (ErrorCall "hello")