HaskellのI/O ファイルの操作ファイルを開いて閉じる System.IOモジュール、EOF、hIsEOF関数

入門Haskellプログラミング
 楽天ブックス
Yahoo!ショッピング
au PAY マーケット

開発環境

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON24(ファイルの操作)、24.1(ファイルを開いて閉じる)、クイックチェック 24-2の解答を求めてみる。

コード

import System.IO

main :: IO ()
main = do
  fname <- getLine
  file <- openFile fname ReadMode
  hasLine <- hIsEOF file
  firstLine <-
    if hasLine
      then return "empty"
      else hGetLine file
  putStrLn firstLine
  hasLine <- hIsEOF file
  secondLine <-
    if hasLine
      then return "empty2"
      else hGetLine file
  putStrLn secondLine
  putStrLn "done!"

入出力結果(Terminal, Zsh)

% cat empty.txt 
% cat hello.txt 
Hello world!
Good bye world!%                                                                % cat hello1.txt 
Hello world!%                                                                   % runghc sample02.hs 
empty.txt
empty
empty2
done!
% runghc sample02.hs
hello.txt
Hello world!
Good bye world!
done!
% runghc sample02.hs
hello1.txt
Hello world!
empty2
done!
%