[ghc-hetmet.git] / ghc / tests / io / should_run / io006.hs

import IO -- 1.3

main = do
  hClose stderr
  hPutStr stderr "junk" `catch` \ err -> if isIllegalOperation err then putStr "Okay\n" else error "Not okay\n"