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/dependency/deployment.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/program/aedifex/dependency/deployment.lux')

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index 40d7e2532..c74eac1ee 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -53,12 +53,12 @@
                               (at repository upload (format artifact extension)))))]
     (do [! (try.with async.monad)]
       [_ (at repository upload artifact data)]
-      (case status
+      (when status
         {///dependency/status.#Unverified}
         (in [])
         
         {///dependency/status.#Partial partial}
-        (case partial
+        (when partial
           {.#Left sha-1}
           (deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)
           
@@ -75,12 +75,12 @@
   (with_expansions [<sha-1> (format type ///artifact/extension.sha-1)
                     <md5> (format type ///artifact/extension.md5)]
     (list.partial type
-                  (case status
+                  (when status
                     {///dependency/status.#Unverified}
                     (list)
                     
                     {///dependency/status.#Partial partial}
-                    (list (case partial
+                    (list (when partial
                             {.#Left _} <sha-1>
                             {.#Right _} <md5>))
                     
@@ -96,7 +96,7 @@
            snapshot (|> snapshot
                         (revised [///metadata/snapshot.#versioning ///artifact/versioning.#snapshot]
                                  (function (_ snapshot)
-                                   (case snapshot
+                                   (when snapshot
                                      {///artifact/snapshot.#Local}
                                      {///artifact/snapshot.#Local}
                                      
-- 
cgit v1.2.3