Eager IO function

[Tom Bevan]

How should I modify the function below so that characters are printed
out as they arrive?

Thanks.

Tom


printchar :: Handle -> IO ()
printchar handle = do   c <- hGetChar handle
                        putChar c