1 line simple cat in Haskell

[C.Reinke]

> main = mapM (>>=putChar) getCharS where getCharS = getChar:getCharS
> 
> How would you suggest to neatly insert the error handling code into ?

\begin{code}
-- some suggestions for a little zoo of cats
module Main where
import IO
import Monad

main0 = interact id
main1 = getContents >>= putStr

main2 = untilEOF (getChar>>=putChar)

catchEOF io = catch io (\e->unless (IO.isEOFError e) (ioError e))
untilEOF io = catchEOF (sequence_ $ repeat io) 

main = main2
\end{code}

Claus

PS. I haven't kept up to date with buffering issues,
    and hugs/ghci may not like this kind of code..