2009-04-15から1日間の記事一覧
元ネタ http://ja.doukaku.org/243/ module Main where import IO import System (getArgs) import Maybe (fromMaybe) getFileSize :: String -> IO (Maybe Integer) getFileSize path = catch (bracket (openFile path ReadMode) hClose (\h -> hFileSize h…