Commit 2c2dea51 authored by sof's avatar sof
Browse files

[project @ 1997-06-05 22:50:33 by sof]

tryIO -> try
parent f1a9efa2
module Main(main) where
import IO -- 1.3
import IOBase -- tryIO 1.3
--import IOBase -- tryIO 1.3
--import GHCio
import Directory (removeFile)
......@@ -20,5 +20,5 @@ main =
copy :: Handle -> Handle -> IO ()
copy hIn hOut =
tryIO (hGetChar hIn) >>=
try (hGetChar hIn) >>=
either (\ err -> if isEOFError err then return () else error "copy") ( \ x -> hPutChar hOut x >> copy hIn hOut)
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