From d29e091e98dabb8dfcf816899ada480ecbf7e357 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 23 Dec 2020 06:33:44 -0400
Subject: Refactored "export" common syntax.

---
 stdlib/source/program/aedifex/command/deploy.lux | 13 +++++++------
 1 file changed, 7 insertions(+), 6 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 4e33b145a..5763c1ff5 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -36,7 +36,8 @@
     ["#." action (#+ Action)]
     ["#." pom]
     ["#." hash]
-    ["#." repository (#+ Identity Repository)]
+    ["#." repository (#+ Repository)
+     [identity (#+ Identity)]]
     ["#." metadata
      ["#/." artifact]
      ["#/." snapshot]]
@@ -89,11 +90,11 @@
         (format ///artifact/type.lux-library ///artifact/extension.sha-1)
         (format ///artifact/type.lux-library ///artifact/extension.md5)))
 
-(def: #export (do! console repository fs identity artifact profile)
-  (-> (Console Promise) (Repository Promise) (file.System Promise) Identity Artifact (Command Any))
+(def: #export (do! console repository fs artifact profile)
+  (-> (Console Promise) (Repository Promise) (file.System Promise) Artifact (Command Any))
   (let [deploy! (: (-> Extension Binary (Action Any))
                    (|>> (///repository.uri artifact)
-                        (\ repository upload identity)))
+                        (\ repository upload)))
         fully-deploy! (: (-> Extension Binary (Action Any))
                          (function (_ extension payload)
                            (do ///action.monad
@@ -126,12 +127,12 @@
                ///metadata/snapshot.write
                (\ xml.codec encode)
                (\ encoding.utf8 encode)
-               (\ repository upload identity (///metadata.version artifact)))
+               (\ repository upload (///metadata.version artifact)))
          _ (|> project
                (set@ #///metadata/artifact.versions (list version))
                (set@ #///metadata/artifact.last-updated now)
                ///metadata/artifact.write
                (\ xml.codec encode)
                (\ encoding.utf8 encode)
-               (\ repository upload identity (///metadata.project artifact)))]
+               (\ repository upload (///metadata.project artifact)))]
         (console.write-line //clean.success console)))))
-- 
cgit v1.2.3