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/build.lux         | 2 +-
 stdlib/source/program/aedifex/artifact/snapshot/stamp.lux         | 4 ++--
 stdlib/source/program/aedifex/artifact/snapshot/version.lux       | 4 ++--
 stdlib/source/program/aedifex/artifact/snapshot/version/value.lux | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/artifact/snapshot/build.lux b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
index a7e9e2fc8..4960f5862 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
@@ -33,7 +33,7 @@
   (|>> %.nat
        #xml.Text
        list
-       (#xml.Node ..tag xml.attributes)))
+       {#xml.Node ..tag xml.attributes}))
 
 (def: .public parser
   (Parser Build)
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index 0a951c097..a840bd3c0 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -35,9 +35,9 @@
 (def: time_format
   (-> Time XML)
   (|>> //time.format
-       #xml.Text
+       {#xml.Text}
        list
-       (#xml.Node ..<timestamp> xml.attributes)))
+       {#xml.Node ..<timestamp> xml.attributes}))
 
 (def: .public (format (^slots [#time #build]))
   (-> Stamp (List XML))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index 33238b990..2dac99df9 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -43,11 +43,11 @@
 
 (def: (text_format tag value)
   (-> xml.Tag Text XML)
-  (|> value #xml.Text list (#xml.Node tag xml.attributes)))
+  (|> value #xml.Text list {#xml.Node tag xml.attributes}))
 
 (def: .public (format (^slots [#extension #value #updated]))
   (-> Version XML)
-  (<| (#xml.Node ..<snapshot_version> xml.attributes)
+  (<| {#xml.Node ..<snapshot_version> xml.attributes}
       (list (..text_format ..<extension> extension)
             (..text_format ..<value> value)
             (..text_format ..<updated> (///time.format updated)))))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
index dc3744f4f..5f1816b3e 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
@@ -35,7 +35,7 @@
     #///.Local
     version
     
-    (#///.Remote stamp)
+    {#///.Remote stamp}
     (let [(^slots [#///stamp.time #///stamp.build]) stamp]
       (%.format (text.replaced ..snapshot
                                (///time.format time)
-- 
cgit v1.2.3