[project @ 2001-02-13 15:12:42 by rrt]

[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc009.hs

{-# OPTIONS -fglasgow-exts #-}

module Main where

import Concurrent
import Exception

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