aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/repository
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/repository')
-rw-r--r--stdlib/source/program/aedifex/repository/local.lux2
-rw-r--r--stdlib/source/program/aedifex/repository/remote.lux6
2 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index af9b502aa..dcc604306 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -55,7 +55,7 @@
_ (is (Async (Try Any))
(if ?
(in {try.#Success []})
- (case (file.parent fs absolute_path)
+ (when (file.parent fs absolute_path)
{.#Some parent}
(file.make_directories async.monad fs parent)
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 [])