aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command
diff options
context:
space:
mode:
authorEduardo Julian2020-12-23 06:33:44 -0400
committerEduardo Julian2020-12-23 06:33:44 -0400
commitd29e091e98dabb8dfcf816899ada480ecbf7e357 (patch)
treea9d34c7fbb700cdb0c1f1226d377150614ce9914 /stdlib/source/program/aedifex/command
parentcad959345afb8bf0bd1e5eefe6c63f136833b3ce (diff)
Refactored "export" common syntax.
Diffstat (limited to 'stdlib/source/program/aedifex/command')
-rw-r--r--stdlib/source/program/aedifex/command/deploy.lux13
1 files changed, 7 insertions, 6 deletions
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)))))