module Main (main) where import System.Console.GetOpt import System.Environment import System.IO import System.Exit import Data.List import Data.Char import Control.Monad data Options = Options { optVerbose :: Bool , optInput :: IO String …

takeFileName で可能。 import System.Directory import System.FilePath import System.IO main :: IO() main = do -- System.Directory.getCurrentDirectory dir <- getCurrentDirectory (path, h) <- openTempFile dir "sample.txt" hClose h removeFile …