Typo
[packages/base.git] / tests / IO / hGetLine003.hs
1 import System.IO
2
3 main = f stdin
4 where f h = do p <- hIsEOF h
5 if p then putStrLn "done"
6 else do l <- hGetLine h
7 putStrLn l
8 f h
9