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.lux | |
parent | c85697eee8ce3dac5480a3ba2b31cc4943e1d8e6 (diff) |
Can now deploy releases with Aedifex.
Diffstat (limited to 'stdlib/source/program/aedifex.lux')
-rw-r--r-- | stdlib/source/program/aedifex.lux | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux index 0c04ff7bb..b964e8fef 100644 --- a/stdlib/source/program/aedifex.lux +++ b/stdlib/source/program/aedifex.lux @@ -69,6 +69,10 @@ set.list (list#each (|>> (/repository/remote.repository http.default {.#None}) /repository.async)))) +(def: program (program.async program.default)) +(def: fs (file.async file.default)) +(def: local (/repository/local.repository ..program ..fs)) + (def: (with_dependencies program console command profile) (All (_ a) (-> (Program Async) (Console Async) @@ -146,10 +150,6 @@ (maybe.trusted (text.clip 0 (-- (text.size it)) it)) it))))) -(def: program (program.async program.default)) -(def: fs (file.async file.default)) -(def: local (/repository/local.repository ..program ..fs)) - (program: [[profiles operation] /cli.command] (do [! io.monad] [console (# ! each (|>> (try.else ..write_only) console.async) @@ -189,7 +189,9 @@ {.#Some artifact} (case (dictionary.value repository (the /.#deploy_repositories profile)) {.#Some remote} - (/command/deploy.do! console + (/command/deploy.do! ..program + (shell.async shell.default) + console ..local (/repository.async (/repository/remote.repository http.default {.#Some identity} remote)) (file.async file.default) |