ghc/misc/examples/io/io007/Main.hs

   1 main =
   2     openFile "io007.in" ReadMode >>= \ hIn ->
   3     hPutStr hIn "test" `handle`
   4     \ (IllegalOperation _) ->
   5         hGetContents hIn >>= \ stuff ->
   6         hPutStr stdout stuff