diff options
Diffstat (limited to '')
| -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) |