projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
fe237d33ef312ee614bb5a8dbe531bf7d0b98067
[ghc-hetmet.git]
/
ghc
/
tests
/
lib
/
IO
/
hClose001.hs
1
import IO
2
3
main = do
4
hClose stderr
5
hPutStr stderr "junk" `catch` \ err -> if isIllegalOperation err then putStr "Okay\n" else error "Not okay\n"