[project @ 1999-03-16 13:20:07 by simonm]

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

{-# OPTIONS -fglasgow-exts #-}

module Main where

import Concurrent
import Exception

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