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/format.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux
index 5eb32d757..594b91014 100644
--- a/stdlib/source/program/aedifex/format.lux
+++ b/stdlib/source/program/aedifex/format.lux
@@ -30,7 +30,7 @@
   (Format /.License)
   (`' [#name (, (code.text name))
        #url (, (code.text url))
-       #type (, (case type
+       #type (, (when type
                   {/.#Repo}
                   (' "repo")
 
@@ -44,7 +44,7 @@
 
 (def (developer [name url organization])
   (Format /.Developer)
-  (case organization
+  (when organization
     {.#None}
     (`' [#name (, (code.text name))
          #url (, (code.text url))])
@@ -76,7 +76,7 @@
 (def (on_maybe field value format aggregate)
   (All (_ a)
     (-> Text (Maybe a) (Format a) Aggregate Aggregate))
-  (case value
+  (when value
     {.#None}
     aggregate
 
@@ -86,7 +86,7 @@
 (def (on_list field value format aggregate)
   (All (_ a)
     (-> Text (List a) (Format a) Aggregate Aggregate))
-  (case value
+  (when value
     {.#End}
     aggregate
 
-- 
cgit v1.2.3