Haskell 用 Twitch 摇一摇？

Question

我正在从辉煌的 tup 切换(或尝试)至 haskell shake作为我的构建系统..

只是我不知道如何在更改时重建文件。

我当然可以使用 inotify 或像 filewatcher 这样的包装器甚至watchman .

由于我使用的是 shake，所以我想知道如何与 twitch 集成它共享 do 语法，但在其他方面没有提供太多文档。

最终目标是使用 pandoc 处理多格式文档。

tup 不足的唯一原因是它不支持目标。

Answer 1

首先，您应该编写自己的shake构建规则。然后，当某些源文件将被更改时，您应该运行构建规则来生成目标。

像这样:

main = defaultMain $ do
  "src/*.md" |> const build

build = shakeArgs shake{shakeFiles="out"} $ do
    want ["out/foo.html", "out/foo.pdf"]

    "out/*.html" %> \out -> do
        let src = "src" </> dropDirectory1 out -<.> "md"
        cmd_ "pandoc -o" [out] src

    "out/*.pdf" %> \out -> do
        let src = "src" </> dropDirectory1 out -<.> "md"
        cmd_ "pandoc -o" [out] src

当 src 目录中的 markdown 文件发生更改时，out/foo.html 和 out/foo.pdf 将被更新.

如果你想优化shake的工作，那么你可以这样做:

main = defaultMain $ do
  "src/*.md" |> build . dependentTargets

build targets = shakeArgs shake{shakeFiles="out"} $ do
    want targets
    ...

dependentTargets src
    | "*.md" ?== src = ["out/foo.html", "out/foo.pdf"]
    | otherwise = []

<小时/>

包twitch建议使用扩展OverloadedStrings来编译代码，如下所示:

"src/*.md" |> ...

但这会导致程序其他部分的代码不明确。为了解决这个问题，您可以显式地将 String 转换为 Dep，如下所示:

import Data.String

fromString "src/*.md" |> ...

您可以通过重新定义 (|>) 运算符来改进此代码:

import Data.String
import Twitch hiding ((|>))

pattern |> callback = addModify callback $ fromString pattern

"src/*.md" |> ...