[project @ 2001-06-01 14:33:01 by sewardj]
[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc009.hs
1 {-# OPTIONS -fglasgow-exts #-}
2
3 module Main where
4
5 import Concurrent
6 import Exception
7
8 main = do 
9   id <- myThreadId
10   throwTo id (ErrorCall "hello")