ファイル表示

printFile.hs

{-# LANGUAGE ScopedTypeVariables #-}
import System.IO
import Control.Monad
import Control.Exception

printFile :: FilePath -> IO ()
printFile filePath = do
    h <- openFile filePath ReadMode
    x <- hGetContents h
    putStrLn x
    hClose h
    return ()

printFile' :: FilePath -> IO ()
printFile' filePath = withFile filePath ReadMode
                      $ \h -> hGetContents h >>= putStrLn

printFile'' :: FilePath -> IO ()
printFile'' filePath = bracket (openFile filePath ReadMode)
                       hClose
                       (\h -> hGetContents h >>= putStrLn)