如何使用 Fake 构建 Docker 图像

Question

有没有一种直接、简洁的方法来构建 Docker Images with Fake？我正在查看 Fake 网站上的 API 文档，但没有看到任何 Docker 相关内容。我可以为 docker 包装命令行界面，但如果不需要，我宁愿不重新发明轮子。

Answer 1

我最后只是走调用命令行的路线

Target "BuildDocker" (fun _ ->
trace "Building Docker Image"

let result =
    ExecProcess (fun info ->
        info.FileName <- ("Docker.exe")
        info.Arguments <- ("build -t \"docker/api:develop\" ." )
        info.WorkingDirectory <- (dockerDir @@ "/api") 
    ) (System.TimeSpan.FromMinutes 5.)

if result <> 0 then failwith "Failed result from Docker"
)