main'
私は現在、リスト内の各ファイル名に対して機能を実行するこのコードを持っていますfiles
。
理想的には結合しようとしてきましたがmain
、main'
あまり進歩していません。これを単純化するより良い方法はありますか、それとも別々にしておく必要がありますか?
{- Start here -}
main :: IO [()]
main = do
files <- getArgs
mapM main' files
{- Main's helper function -}
main' :: FilePath -> IO ()
main' file = do
contents <- readFile file
case (runParser parser 0 file $ lexer contents) of Left err -> print err
Right xs -> putStr xs
ありがとう!
編集:あなたのほとんどが示唆しているように。私はこれのためにラムダ抽象化を試みていましたが、うまくいきませんでした。- これを上記で指定する必要がありました。例を見ると、これがよくわかります。