diff options
author | Eduardo Julian | 2020-11-05 22:54:05 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-11-05 22:54:05 -0400 |
commit | ef78c1f92ab29c4370193591b170535dd9e743f7 (patch) | |
tree | e83fd11eb20b4df26f6f5a20bef38af9d2baac8a /stdlib/source/program/aedifex/upload.lux | |
parent | 11cc4a67001162d689eb827f755424a07b99fccb (diff) |
Improved error reporting for syntax macros.
Diffstat (limited to 'stdlib/source/program/aedifex/upload.lux')
-rw-r--r-- | stdlib/source/program/aedifex/upload.lux | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/stdlib/source/program/aedifex/upload.lux b/stdlib/source/program/aedifex/upload.lux index f5834fa61..391413f03 100644 --- a/stdlib/source/program/aedifex/upload.lux +++ b/stdlib/source/program/aedifex/upload.lux @@ -18,7 +18,8 @@ [net (#+ URL) ["." uri]]]] ["." // #_ - ["#." dependency (#+ Repository Dependency)] + ["#." repository (#+ Address User Password)] + ["#." dependency (#+ Dependency)] ["#." artifact]]) (type: #export (Action a) @@ -28,14 +29,8 @@ (:coerce (Monad Action) (try.with io.monad))) -(type: #export User - Text) - -(type: #export Password - Text) - (def: (url repository dependency) - (-> Repository Dependency URL) + (-> Address Dependency URL) (format repository uri.separator (//artifact.uri (get@ #//dependency.artifact dependency)) @@ -80,7 +75,7 @@ (java/util/Base64::getEncoder)))) (def: #export (upload repository user password dependency content) - (-> Repository User Password Dependency Binary + (-> Address User Password Dependency Binary (Action Any)) (do {! ..monad} [connection (|> (..url repository dependency) |