projects / ghc-hetmet.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[project @ 1996-07-26 20:58:52 by partain]
[ghc-hetmet.git] / ghc / misc / examples / io / io006 / Main.hs
1 import IO -- 1.3
2
3 main =
4     hClose stderr >>
5     hPutStr stderr "junk" `catch` \ err -> if isIllegalOperation err then putStr "Okay\n" else error "Not okay\n"
6
Glasgow Haskell Compiler with heterogeneous metaprogramming (generalized arrows and modal types)