haskell - 逐行读取文件

Question

我正在尝试逐行读取文件，但是当我到达 EOF 时，我不知道如何停止。

我有这个代码:

readWholeFile = do inputFile <- openFile "example.txt" ReadMode
                readALine inputFile

readALine x = do y <- hGetLine x
                 print y
                 readALine x

它显然总是终止引发异常。

我该如何解决？

编辑:确切的错误信息是:

*** Exception: example.txt: hGetLine: end of file

Answer 1

另一种解决方案。您可以使用 readFile 延迟读取文件，lazy 按需拆分并逐行获取结果:

readLines :: FilePath -> IO [String]
readLines = fmap lines . readFile