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"