diff options
Diffstat (limited to 'stdlib/source/program/aedifex/repository/remote.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/repository/remote.lux | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux index efe3263a4..782b872f1 100644 --- a/stdlib/source/program/aedifex/repository/remote.lux +++ b/stdlib/source/program/aedifex/repository/remote.lux @@ -61,11 +61,11 @@ address) (def: (download uri) (do [! (try.with io.monad)] - [[status message] (: (IO (Try (@http.Response IO))) - (http.get (format address uri) - (http.headers ..base_headers) - {.#None} - http))] + [[status message] (is (IO (Try (@http.Response IO))) + (http.get (format address uri) + (http.headers ..base_headers) + {.#None} + http))] (case status (pattern (static http/status.ok)) (# ! each product.right ((the @http.#body message) {.#None})) @@ -77,17 +77,17 @@ (def: (upload uri content) (do (try.with io.monad) - [[status message] (: (IO (Try (@http.Response IO))) - (http.put (format address uri) - (http.headers (case identity - {.#None} - ..base_headers - - {.#Some [user password]} - (list& ["Authorization" (//identity.basic_auth user password)] - ..base_headers))) - {.#Some content} - http)) + [[status message] (is (IO (Try (@http.Response IO))) + (http.put (format address uri) + (http.headers (case identity + {.#None} + ..base_headers + + {.#Some [user password]} + (list& ["Authorization" (//identity.basic_auth user password)] + ..base_headers))) + {.#Some content} + http)) _ ((the @http.#body message) {.#Some 0})] (case status (pattern (static http/status.created)) |