如何使用Shake执行sh命令

Question

我正在尝试将现有的makefile迁移到Shake，到目前为止，我已经尝试了以下方法(只需创建一个包含目录内容的文件)

module Main where
import Development.Shake

main :: IO ()
main = shakeArgs shakeOptions{shakeFiles="_build"} $ do
    let ls = "_build/ls.txt"
    want [ls]
    ls *> \out ->  do
        cmd "ls >  " out

当我运行它时，我会收到以下错误消息：

> runghc test.hs _build/ls.txt
# ls (for _build/ls.txt)
ls: >: No such file or directory
ls: _build/ls.txt: No such file or directory
Error when running Shake build system:
* _build/ls.txt
Development.Shake.cmd, system command failed
Command: ls > _build/ls.txt
Exit code: 1
Stderr:
ls: >: No such file or directory
ls: _build/ls.txt: No such file or directory

我做错什么了？如何执行sh命令并重定向其输出？

Answer 1

要从您可能需要的转换开始：

cmd Shell "ls >" out

参数Shell告诉Shake使用系统外壳，这意味着重定向工作。稍后，您可能希望切换到：

Stdout result <- cmd "ls"
writeFile' out result

现在不是调用shell，而是用Shake捕获输出。稍后，您可能希望切换到：

getDirectoryFiles "." ["*"]

这是获取文件列表的Shake跟踪方式。