diff options
Diffstat (limited to 'stdlib/source/program/aedifex/command/deploy.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy.lux | 32 |
1 files changed, 17 insertions, 15 deletions
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)))) |