From 0205e5146b50ab066d152fccda0fc8cef4eef852 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 3 Dec 2020 02:09:57 -0400
Subject: Detect duplicate files coming from dependencies.

---
 stdlib/source/program/aedifex/command/deploy.lux | 32 +++++++++++++-----------
 1 file changed, 17 insertions(+), 15 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 1f5ccc441..dbe4a88cb 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -16,22 +16,25 @@
      ["." tar]
      ["." xml]]]
    [world
-    ["." file]]]
+    ["." file]
+    ["." console (#+ Console)]]]
   [program
    [compositor
     ["." export]]]
-  ["." /// #_
-   [repository (#+ Identity Repository)]
-   [command (#+ Command)]
-   ["/" profile]
-   ["#." action (#+ Action)]
-   ["#." pom]
-   ["#." hash]
-   ["#." artifact (#+ Artifact)
-    ["#/." extension (#+ Extension)]]])
+  ["." // #_
+   ["#." clean]
+   ["/#" // #_
+    [repository (#+ Identity Repository)]
+    [command (#+ Command)]
+    ["/" profile]
+    ["#." action (#+ Action)]
+    ["#." pom]
+    ["#." hash]
+    ["#." artifact (#+ Artifact)
+     ["#/." extension (#+ Extension)]]]])
 
-(def: #export (do! repository fs identity artifact profile)
-  (-> (Repository Promise) (file.System Promise) Identity Artifact (Command Any))
+(def: #export (do! console repository fs identity artifact profile)
+  (-> (Console Promise) (Repository Promise) (file.System Promise) Identity Artifact (Command Any))
   (let [deploy! (: (-> Extension Binary (Action Any))
                    (\ repository upload identity artifact))]
     (do {! ///action.monad}
@@ -44,6 +47,5 @@
        _ (deploy! ///artifact/extension.pom (|> pom (\ xml.codec encode) encoding.to-utf8))
        _ (deploy! ///artifact/extension.lux-library library)
        _ (deploy! ///artifact/extension.sha-1 (///hash.data (///hash.sha-1 library)))
-       _ (deploy! ///artifact/extension.md5 (///hash.data (///hash.md5 library)))
-       #let [_ (log! "Successfully deployed!")]]
-      (wrap []))))
+       _ (deploy! ///artifact/extension.md5 (///hash.data (///hash.md5 library)))]
+      (console.write-line //clean.success console))))
-- 
cgit v1.2.3