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

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 6300dc4fc..27127e3da 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -84,7 +84,7 @@
                                         /repository.async)
                                    profile)
      [exit_code output] ((command console environment (file.async file.default) (shell.async shell.default) resolution) profile)
-     _ (case exit_code
+     _ (when exit_code
          shell.normal
          (in [])
 
@@ -118,7 +118,7 @@
     (do async.monad
       [outcome action]
       (async.future
-       (case outcome
+       (when outcome
          {try.#Success _}
          ..succeed!
 
@@ -153,7 +153,7 @@
     (do [! io.monad]
       [console (at ! each (|>> (try.else ..write_only) console.async)
                    console.default)]
-      (case operation
+      (when operation
         {/cli.#Version}
         (..command
          (/command/version.do! console (at /.monoid identity)))
@@ -161,12 +161,12 @@
         _
         (do !
           [?profile (/input.read io.monad file.default profiles)]
-          (case ?profile
+          (when ?profile
             {try.#Failure error}
             (..fail! error)
 
             {try.#Success profile}
-            (case operation
+            (when operation
               {/cli.#Version}
               (in [])
               
@@ -184,9 +184,9 @@
 
               {/cli.#Deploy repository identity}
               (..command
-               (case (the /.#identity profile)
+               (when (the /.#identity profile)
                  {.#Some artifact}
-                 (case (dictionary.value repository (the /.#deploy_repositories profile))
+                 (when (dictionary.value repository (the /.#deploy_repositories profile))
                    {.#Some remote}
                    (/command/deploy.do! ..environment
                                         (shell.async shell.default)
@@ -213,7 +213,7 @@
                                   profile))
 
               {/cli.#Compilation compilation}
-              (case compilation
+              (when compilation
                 {/cli.#Build} (..command
                                (..with_dependencies ..environment console /command/build.do! profile))
                 {/cli.#Test} (..command
@@ -222,13 +222,13 @@
               {/cli.#Auto auto}
               (do !
                 [?watcher watch.default]
-                (case ?watcher
+                (when ?watcher
                   {try.#Failure error}
                   (..fail! error)
                   
                   {try.#Success watcher}
                   (..command
-                   (case auto
+                   (when auto
                      {/cli.#Build} (..with_dependencies ..environment console (/command/auto.do! /command/auto.delay watcher /command/build.do!) profile)
                      {/cli.#Test} (..with_dependencies ..environment console (/command/auto.do! /command/auto.delay watcher /command/test.do!) profile))))))
             ))))))
-- 
cgit v1.2.3