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/command/deploy.lux | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

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

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