aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/repository/remote.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-08-11 04:15:07 -0400
committerEduardo Julian2022-08-11 04:15:07 -0400
commit065e8a4d8122d4616b570496915d2c0e2c78cd6b (patch)
treef2bbdc3e40b796b34026ab04c9a478d8a3f082d5 /stdlib/source/program/aedifex/repository/remote.lux
parent68d78235694c633c956bb9e8a007cad7d65370bc (diff)
Re-named the "case" macro to "when".
Diffstat (limited to 'stdlib/source/program/aedifex/repository/remote.lux')
-rw-r--r--stdlib/source/program/aedifex/repository/remote.lux6
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index 10b7f372d..bb89a6235 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -67,7 +67,7 @@
(http.headers ..base_headers)
{.#None}
http))]
- (case status
+ (when status
http/status.ok
(at ! each product.right ((the @http.#body message) {.#None}))
@@ -80,7 +80,7 @@
(do (try.with io.monad)
[[status message] (is (IO (Try (@http.Response IO)))
(http.put (format address uri)
- (http.headers (case identity
+ (http.headers (when identity
{.#None}
..base_headers
@@ -90,7 +90,7 @@
{.#Some content}
http))
_ ((the @http.#body message) {.#Some 0})]
- (case status
+ (when status
http/status.created
(in [])