[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / misc / examples / io / io006 / Main.hs
1 main =
2     hClose stderr >>
3     hPutStr stderr "junk" `handle` \ (IllegalOperation _) -> putStr "Okay\n"
4