haskell - 如何使用 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 使用系统 shell，这意味着重定向有效。稍后您可能希望切换到：

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

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

getDirectoryFiles "." ["*"]

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