diff options
| author | Eduardo Julian | 2020-10-12 20:22:31 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-10-12 20:22:31 -0400 |
| commit | 00d5ccbc043960037f644d4ff09b6a46fd0093d0 (patch) | |
| tree | 9515edc59fb511fa30e68c832d669654853ff702 /stdlib/source/program/aedifex/command/deploy.lux | |
| parent | 5b222d040ee361dd4022e88488a6bcef3ca40a71 (diff) | |
Type-checking macros via the Macro' type from the standard library.
Diffstat (limited to 'stdlib/source/program/aedifex/command/deploy.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy.lux | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux index 1081322b4..a4b076733 100644 --- a/stdlib/source/program/aedifex/command/deploy.lux +++ b/stdlib/source/program/aedifex/command/deploy.lux @@ -30,7 +30,9 @@ ["#." command (#+ Command)] ["#." dependency] ["#." pom] - ["#." hash]]) + ["#." hash] + ["#." artifact + ["#/." type]]]) (exception: #export (cannot-find-repository {repository Text} {options (Dictionary Text ///dependency.Repository)}) @@ -51,7 +53,7 @@ (promise@wrap (exception.throw ..cannot-find-repository [repository (get@ #/.deploy-repositories profile)])) [(#.Some identity) (#.Some repository)] - (let [deploy! (: (-> ///dependency.Type Binary (Action Any)) + (let [deploy! (: (-> ///artifact/type.Type Binary (Action Any)) (function (_ type content) (promise.future (//.upload repository @@ -65,8 +67,8 @@ (export.library (file.async file.system) (set.to-list (get@ #/.sources profile)))) pom (promise@wrap (///pom.project profile)) - _ (deploy! ///dependency.pom (|> pom (:: xml.codec encode) encoding.to-utf8)) - _ (deploy! ///dependency.lux-library library) + _ (deploy! ///artifact/type.pom (|> pom (:: xml.codec encode) encoding.to-utf8)) + _ (deploy! ///artifact/type.lux-library library) _ (deploy! "sha1" (///hash.sha1 library)) _ (deploy! "md5" (///hash.md5 library))] (wrap []))))) |