diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command/deploy.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy.lux | 13 |
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))))) |