diff options
| author | Eduardo Julian | 2022-04-08 01:49:29 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-04-08 01:49:29 -0400 |
| commit | e5e4c2aff562e5c01fefb808d1d68a40f29c9cc5 (patch) | |
| tree | 6b56a158a19debc0d3cd1d98e88e2ee91ed8a823 /stdlib/source/program/aedifex/command/deploy.lux | |
| parent | c85697eee8ce3dac5480a3ba2b31cc4943e1d8e6 (diff) | |
Can now deploy releases with Aedifex.
Diffstat (limited to 'stdlib/source/program/aedifex/command/deploy.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy.lux | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux index 4ff3b9011..504a9206f 100644 --- a/stdlib/source/program/aedifex/command/deploy.lux +++ b/stdlib/source/program/aedifex/command/deploy.lux @@ -8,25 +8,29 @@ [concurrency [async {"+" Async}]]] [world + [program {"+" Program}] + [shell {"+" Shell}] ["[0]" file] ["[0]" console {"+" Console}]]]] ["[0]" / "_" ["[1][0]" snapshot] + ["[1][0]" release] ["/[1]" // "_" - ["[1][0]" install] ["/[1]" // "_" [command {"+" Command}] [repository {"+" Repository}] [artifact {"+" Artifact}] + ["/" profile] ["[1][0]" action]]]]) (def: .public success "Successfully deployed the project.") -(def: .public (do! console local remote fs artifact profile) - (-> (Console Async) (Repository Async) (Repository Async) (file.System Async) Artifact (Command Any)) +(def: .public (do! program shell console local remote fs artifact profile) + (-> (Program Async) (Shell Async) (Console Async) (Repository Async) (Repository Async) (file.System Async) Artifact (Command Any)) (do [! ///action.monad] - [_ (//install.do! console fs local profile) - _ (/snapshot.do! console remote fs artifact profile)] + [_ (if (/snapshot.snapshot? artifact) + (/snapshot.do! console remote fs artifact profile) + (/release.do! program shell console local remote fs artifact profile))] (is (Async (Try Any)) (console.write_line ..success console)))) |