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

(limited to 'stdlib/source/test/aedifex/cli.lux')

diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index a27e90074..b388866c6 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -53,13 +53,13 @@
 
 (def (compilation_format value)
   (-> /.Compilation (List Text))
-  (case value
+  (when value
     {/.#Build} (list "build")
     {/.#Test} (list "test")))
 
 (def (format value)
   (-> /.Command (List Text))
-  (case value
+  (when value
     {/.#Version} (list "version")
     {/.#Clean} (list "clean")
     {/.#POM} (list "pom")
@@ -77,7 +77,7 @@
       (|> expected
           ..format
           (cli.result /.command)
-          (pipe.case
+          (pipe.when
             {try.#Success [names actual]}
             (and (at (list.equivalence text.equivalence) = (list //.default) names)
                  (at /.equivalence = expected actual))
@@ -95,7 +95,7 @@
           ..format
           (list.partial "with" expected_profile)
           (cli.result /.command)
-          (pipe.case
+          (pipe.when
             {try.#Success [actual_profile actual_command]}
             (and (at (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile)
                  (at /.equivalence = expected_command actual_command))
-- 
cgit v1.2.3