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/artifact/snapshot.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/artifact/snapshot.lux b/stdlib/source/program/aedifex/artifact/snapshot.lux
index 0a0d5cd94..64ff5d7b7 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot.lux
@@ -18,7 +18,7 @@
 (type: .public Snapshot
   (Variant
    #Local
-   (#Remote Stamp)))
+   {#Remote Stamp}))
 
 (implementation: any_equivalence
   (Equivalence Any)
@@ -45,9 +45,9 @@
 
 (def: local_copy_format
   XML
-  (#xml.Node <local_copy>
-             xml.attributes
-             (list (#xml.Text ..local_copy_value))))
+  {#xml.Node <local_copy>
+   xml.attributes
+   (list {#xml.Text ..local_copy_value})})
 
 (def: local_copy_parser
   (Parser Any)
@@ -57,12 +57,12 @@
 
 (def: .public (format snapshot)
   (-> Snapshot XML)
-  (<| (#xml.Node ..<snapshot> xml.attributes)
+  (<| {#xml.Node ..<snapshot> xml.attributes}
       (case snapshot
         #Local
         (list ..local_copy_format)
         
-        (#Remote stamp)
+        {#Remote stamp}
         (/stamp.format stamp))))
 
 (def: .public parser
-- 
cgit v1.2.3