projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
6eb862c3da06f443f212459c00e70beb052e248a
[ghc-hetmet.git]
/
ghc
/
misc
/
examples
/
io
/
io006
/
Main.hs
1
import IO -- 1.3
2
3
main =
4
hClose stderr >>
5
hPutStr stderr "junk" `catch` \ err -> if isIllegalOperation err then putStr "Okay\n" else error "Not okay\n"
6