libraries/base/tests/IO/hGetLine003.hs


1
2
3
4
5
6
7
8
9

import System.IO

main = f stdin
  where f h = do p <- hIsEOF h
                 if p then putStrLn "done"
                      else do l <- hGetLine h
                              putStrLn l
                              f h