From cd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 10 Sep 2021 01:21:23 -0400
Subject: Migrated variants to the new syntax.

---
 stdlib/source/program/aedifex.lux | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 682c30099..758397321 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -90,7 +90,7 @@
          _
          (do async.monad
            [_ (\ program exit exit_code)]
-           (in (#try.Failure ""))))]
+           (in {#try.Failure ""})))]
     (in output)))
 
 (exception: (cannot_find_repository [repository Text
@@ -117,10 +117,10 @@
           [outcome action]
           (async.future
            (case outcome
-             (#try.Success _)
+             {#try.Success _}
              ..succeed!
 
-             (#try.Failure error)
+             {#try.Failure error}
              (..fail! error))))
     (\ io.monad in [])))
 
@@ -128,10 +128,10 @@
   (do [! io.monad]
     [?console console.default]
     (case (try\each console.async ?console)
-      (#try.Failure error)
+      {#try.Failure error}
       (..fail! error)
 
-      (#try.Success console)
+      {#try.Success console}
       (case operation
         #/cli.Version
         (..command
@@ -141,10 +141,10 @@
         (do !
           [?profile (/input.read io.monad file.default profiles)]
           (case ?profile
-            (#try.Failure error)
+            {#try.Failure error}
             (..fail! error)
 
-            (#try.Success profile)
+            {#try.Success profile}
             (let [program (program.async program.default)]
               (case operation
                 #/cli.Version
@@ -163,14 +163,14 @@
                  (let [fs (file.async file.default)]
                    (/command/install.do! console fs (/repository/local.repository program fs) profile)))
 
-                (#/cli.Deploy repository identity)
+                {#/cli.Deploy repository identity}
                 (..command
                  (case (value@ #/.identity profile)
-                   (#.Some artifact)
+                   {#.Some artifact}
                    (case (dictionary.value repository (value@ #/.deploy_repositories profile))
-                     (#.Some repository)
+                     {#.Some repository}
                      (/command/deploy.do! console
-                                          (/repository.async (/repository/remote.repository http.default (#.Some identity) repository))
+                                          (/repository.async (/repository/remote.repository http.default {#.Some identity} repository))
                                           (file.async file.default)
                                           artifact
                                           profile)
@@ -190,21 +190,21 @@
                                          /repository.async)
                                     profile))
 
-                (#/cli.Compilation compilation)
+                {#/cli.Compilation compilation}
                 (case compilation
                   #/cli.Build (..command
                                (..with_dependencies program console /command/build.do! profile))
                   #/cli.Test (..command
                               (..with_dependencies program console /command/test.do! profile)))
 
-                (#/cli.Auto auto)
+                {#/cli.Auto auto}
                 (do !
                   [?watcher watch.default]
                   (case ?watcher
-                    (#try.Failure error)
+                    {#try.Failure error}
                     (..fail! error)
                     
-                    (#try.Success watcher)
+                    {#try.Success watcher}
                     (..command
                      (case auto
                        #/cli.Build (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/build.do!) profile)
-- 
cgit v1.2.3