ハスケルタートルスクリプト：どのようにシェルを消費する

Question

import Turtle 
import Prelude hiding (FilePath) 
import Data.Text hiding (find) 
main = do 
    f <- view $ format fp <$> find (suffix ".mp4") "/Users/me/videos" 
    procs "ffmpeg" ["-vn","-acodec","libmp3lame","-ac","2","-ab","160k","-ar","48000","-i"] empty 

基本的に私はffmpegにすべてのビデオファイル名を供給したいと思います。 つの質問：

1. procsShellでストリームを結合する方法は？
2. ffmpegは2つの入力をとります：1つは-i、出力ファイル名は1つです。タートルでこれを実装するベストプラクティスは何ですか？

私は、有望に見えるfoldIO機能を見てきました。しかし、私はそれを使用する方法を把握することはできません。

Answer 1

viewのように使用しないでください。これを使用してShellを実行すると、結果の値が出力され、アクセスできなくなります。 Shell自体はモナドなので、Shellアクションを構築し、viewまたはshで実行してください（印刷せずに値を破棄するには）。 （彼らは端末機能であり、あなたがやっていることをやってしまったときにのみ使用します）。実際にはMonadIO Shellなので、IOでできることは何でもShell（liftIO :: MonadIO m => IO a -> m a経由）で行うことができます。

main = sh $ do -- You don't want to print the output of this Shell (a bunch of()s) 
    filename <- format fp <$> find (suffix ".mp4") "/Users/me/videos" 
    let output = findOtherName filename -- Find the output arg for ffmpeg 
    procs "ffmpeg" ["-vn","-acodec","libmp3lame","-ac","2","-ab" 
       ,"160k","-ar","48000","-i",filename,output ] -- Just add them on 

これは

#!/bin/sh 
for filename in /Users/me/videos/*.mp4; do 
    output="`findOtherName "$filename"`" 
    ffmpeg -vn -acodec libmp3lame -ac 2 -ab 160k -ar 48000 -i "$filename" "$output" 
done