diff options
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) |