From 065e8a4d8122d4616b570496915d2c0e2c78cd6b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 11 Aug 2022 04:15:07 -0400
Subject: Re-named the "case" macro to "when".

---
 stdlib/source/program/aedifex/repository/local.lux  | 2 +-
 stdlib/source/program/aedifex/repository/remote.lux | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/program/aedifex/repository')

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 [])
          
-- 
cgit v1.2.3