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.

---
 .../program/aedifex/dependency/resolution.lux      | 42 +++++++++++-----------
 1 file changed, 21 insertions(+), 21 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index ce54d9d9a..3c8241595 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -85,7 +85,7 @@
   (do async.monad
     [?actual (\ repository download (///repository/remote.uri version_template artifact extension))]
     (case ?actual
-      (#try.Success actual)
+      {#try.Success actual}
       (in (do [! try.monad]
             [output (\ ! each (for [@.old (|>> (:as java/lang/String)
                                                java/lang/String::trim
@@ -99,10 +99,10 @@
                         (\ codec decoded))
              _ (exception.assertion exception [artifact extension output]
                                     (\ ///hash.equivalence = (hash library) actual))]
-            (in (#.Some actual))))
+            (in {#.Some actual})))
       
-      (#try.Failure error)
-      (in (#try.Success #.None)))))
+      {#try.Failure error}
+      (in {#try.Success #.None}))))
 
 (def: (hashed repository version_template artifact extension)
   (-> (Repository Async) Version Artifact Extension (Async (Try [Binary Status])))
@@ -115,14 +115,14 @@
                            repository version_template artifact (format extension ///artifact/extension.md5)
                            ///hash.md5 ///hash.md5_codec ..md5_does_not_match)]
     (in [data (case [?sha-1 ?md5]
-                [(#.Some sha-1) (#.Some md5)]
-                (#//status.Verified sha-1 md5)
+                [{#.Some sha-1} {#.Some md5}]
+                {#//status.Verified sha-1 md5}
 
-                [(#.Some sha-1) #.None]
-                (#//status.Partial (#.Left sha-1))
+                [{#.Some sha-1} #.None]
+                {#//status.Partial {#.Left sha-1}}
 
-                [#.None (#.Some md5)]
-                (#//status.Partial (#.Right md5))
+                [#.None {#.Some md5}]
+                {#//status.Partial {#.Right md5}}
 
                 [#.None #.None]
                 #//status.Unverified)])))
@@ -144,7 +144,7 @@
            [pom (\ utf8.codec decoded pom_data)
             pom (\ xml.codec decoded pom)
             profile (<xml>.result ///pom.parser (list pom))]
-           (in [#///package.origin (#///repository/origin.Remote "")
+           (in [#///package.origin {#///repository/origin.Remote ""}
                 #///package.library library_&_status
                 #///package.pom [pom pom_data pom_status]]))))))
 
@@ -187,17 +187,17 @@
         (exception.except ..cannot_resolve)
         (\ async.monad in))
 
-    (#.Item repository alternatives)
+    {#.Item repository alternatives}
     (do [! async.monad]
       [_ (..announce_fetching console repository (value@ #//.artifact dependency))
        outcome (..one repository dependency)]
       (case outcome
-        (#try.Success package)
+        {#try.Success package}
         (do !
           [_ (..announce_success console repository (value@ #//.artifact dependency))]
           (in outcome))
 
-        (#try.Failure error)
+        {#try.Failure error}
         (do !
           [_ (..announce_failure console repository (value@ #//.artifact dependency))]
           (any console alternatives dependency))))))
@@ -217,7 +217,7 @@
       (\ async.monad in
          [successes failures resolution])
 
-      (#.Item head tail)
+      {#.Item head tail}
       (case (value@ [#//.artifact #///artifact.version] head)
         ... Skip if there is no version
         "" (recur repositories
@@ -227,13 +227,13 @@
                   resolution)
         _ (do [! async.monad]
             [?package (case (dictionary.value head resolution)
-                        (#.Some package)
-                        (in (#try.Success package))
+                        {#.Some package}
+                        (in {#try.Success package})
 
                         #.None
                         (..any console repositories head))]
             (case ?package
-              (#try.Success package)
+              {#try.Success package}
               (do !
                 [.let [redundant? (: (Predicate Dependency)
                                      (predicate.or (\ //.equivalence = head)
@@ -252,15 +252,15 @@
                        ... sub_repositories (list\composite repositories package_repositories)
                        ]]
                 (recur repositories
-                       (#.Item head successes)
+                       {#.Item head successes}
                        failures
                        (set.list (set.union (set.of_list //.hash tail)
                                             (set.of_list //.hash sub_dependencies)))
                        (dictionary.has head package resolution)))
 
-              (#try.Failure error)
+              {#try.Failure error}
               (recur repositories
                      successes
-                     (#.Item head failures)
+                     {#.Item head failures}
                      tail
                      resolution)))))))
-- 
cgit v1.2.3