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.

---
 .../source/program/aedifex/dependency/deployment.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index fa6da0bc0..84170965c 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -56,15 +56,15 @@
         #///dependency/status.Unverified
         (in [])
         
-        (#///dependency/status.Partial partial)
+        {#///dependency/status.Partial partial}
         (case partial
-          (#.Left sha-1)
+          {#.Left sha-1}
           (deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)
           
-          (#.Right md5)
+          {#.Right md5}
           (deploy_hash ///hash.md5_codec ///artifact/extension.md5 md5))
         
-        (#///dependency/status.Verified sha-1 md5)
+        {#///dependency/status.Verified sha-1 md5}
         (do !
           [_ (deploy_hash ///hash.sha-1_codec ///artifact/extension.sha-1 sha-1)]
           (deploy_hash ///hash.md5_codec ///artifact/extension.md5 md5))))))
@@ -78,12 +78,12 @@
              #///dependency/status.Unverified
              (list)
              
-             (#///dependency/status.Partial partial)
+             {#///dependency/status.Partial partial}
              (list (case partial
-                     (#.Left _) <sha-1>
-                     (#.Right _) <md5>))
+                     {#.Left _} <sha-1>
+                     {#.Right _} <md5>))
              
-             (#///dependency/status.Verified _)
+             {#///dependency/status.Verified _}
              (list <sha-1> <md5>)))))
 
 (def: (update_snapshot [artifact type] now snapshot)
@@ -99,8 +99,8 @@
                                       #///artifact/snapshot.Local
                                       #///artifact/snapshot.Local
                                       
-                                      (#///artifact/snapshot.Remote [_ build])
-                                      (#///artifact/snapshot.Remote [now (++ build)]))))
+                                      {#///artifact/snapshot.Remote [_ build]}
+                                      {#///artifact/snapshot.Remote [now (++ build)]})))
                         (with@ [#///metadata/snapshot.versioning #///artifact/versioning.last_updated] now))
            versioning_snapshot (value@ [#///metadata/snapshot.versioning #///artifact/versioning.snapshot] snapshot)]]
     (in (|> snapshot
-- 
cgit v1.2.3