計算機科学のブログ

HaskellのI/O ファイル操作 遅延I/Oの問題 readFile関数

入門Haskellプログラミング (Will Kurt(著)、株式会社クイープ(監修、翻訳)、翔泳社)のUNIT4(HaskellのI/O)、LESSON 24(ファイル操作)、24.3(遅延I/Oの問題)、クイックチェック 24-4の解答を求めてみる。

readFileがファイルを閉じてしまうと、ファイルハンドルを使用できなくなってしまうから。

readFile関数をhOpenFile関数とhClose関数で展開して書き換えて実際に確認。

コード

lesson/app/Main.hs

module Main where

import Lib ()
import System.IO
  ( IOMode (ReadMode),
    hClose,
    hGetContents,
    openFile,
  )

fileName :: FilePath
fileName = "hello.txt"

main :: IO ()
main = do
  input <- readFile fileName
  putStr input
  putStrLn "展開"
  file <- openFile fileName ReadMode
  hClose file
  input <- hGetContents file
  putStr input

入出力結果(Terminal, Zsh)

% stack exec lesson-exe
Hello world!
Good bye world!
展開
lesson-exe: hello.txt: hGetContents: illegal operation (handle is closed)
%