projects / ghc-hetmet.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[project @ 2001-08-22 11:45:06 by sewardj]
[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"
Glasgow Haskell Compiler with heterogeneous metaprogramming (generalized arrows and modal types)