testsuite/tests/ghc-regress/lib/IO/hClose001.hs


1
2
3
4
5
6
7
8

import System.IO
import System.IO.Error

main = do
  h <- openFile "hClose001.tmp" WriteMode
  hPutStr h "junk" 
  hClose h
  hPutStr h "junk" `catchIOError` \ err -> if isIllegalOperation err then putStr "Okay\n" else error "Not okay\n"