From e5e4c2aff562e5c01fefb808d1d68a40f29c9cc5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 01:49:29 -0400
Subject: Can now deploy releases with Aedifex.

---
 stdlib/source/program/aedifex.lux | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/program/aedifex.lux')

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)
-- 
cgit v1.2.3