Commit 03643ba4 authored by simonmar's avatar simonmar
Browse files

[project @ 2003-03-26 15:29:49 by simonmar]

change this test to avoid closing stderr, which confuses GHCi
parent 2d4e2515
import IO
main = do
hClose stderr
hPutStr stderr "junk" `catch` \ err -> if isIllegalOperation err then putStr "Okay\n" else error "Not okay\n"
h <- openFile "hClose001.tmp" WriteMode
hPutStr h "junk"
hClose h
hPutStr h "junk" `catch` \ err -> if isIllegalOperation err then putStr "Okay\n" else error "Not okay\n"
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment