ghc/tests/io/should_run/io007.stdout

   1 import IO -- 1.3
   2
   3 main =
   4     openFile "io007.hs" ReadMode >>= \ hIn ->
   5     hPutStr hIn "test" `catch`
   6     \ err ->
   7         if isIllegalOperation err then
   8         hGetContents hIn >>= \ stuff ->
   9         hPutStr stdout stuff
  10         else
  11             error "Oh dear\n"