From 891b1cfc82322f8017f0a4f6b707d6fe52024545 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 3 Sep 2021 21:51:30 -0400
Subject: Unified tuple and record syntax.

---
 .../source/program/aedifex/metadata/snapshot.lux   | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index d5e9483bf..61183a932 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -47,8 +47,8 @@
 
 (type: .public Metadata
   (Record
-   {#artifact Artifact
-    #versioning Versioning}))
+   [#artifact Artifact
+    #versioning Versioning]))
 
 (template [<definition> <tag>]
   [(def: <definition> xml.Tag ["" <tag>])]
@@ -91,9 +91,9 @@
         [group (<xml>.somewhere (..text ..<group>))
          name (<xml>.somewhere (..text ..<name>))
          version (<xml>.somewhere (..text ..<version>))
-         versioning (with_expansions [<default_version> {#///artifact/snapshot/version.extension ///artifact/type.jvm_library
+         versioning (with_expansions [<default_version> [#///artifact/snapshot/version.extension ///artifact/type.jvm_library
                                                          #///artifact/snapshot/version.value version
-                                                         #///artifact/snapshot/version.updated ///artifact/time.epoch}]
+                                                         #///artifact/snapshot/version.updated ///artifact/time.epoch]]
                       (|> (<xml>.somewhere ///artifact/versioning.parser)
                           (\ ! each
                              (revised@ #///artifact/versioning.versions
@@ -104,13 +104,13 @@
 
                                                       versions
                                                       versions)))))
-                          (<>.else {#///artifact/versioning.snapshot #///artifact/snapshot.Local
+                          (<>.else [#///artifact/versioning.snapshot #///artifact/snapshot.Local
                                     #///artifact/versioning.last_updated ///artifact/time.epoch
-                                    #///artifact/versioning.versions (list <default_version>)})))]
-        (in {#artifact {#///artifact.group group
+                                    #///artifact/versioning.versions (list <default_version>)])))]
+        (in [#artifact [#///artifact.group group
                         #///artifact.name name
-                        #///artifact.version version}
-             #versioning versioning}))))
+                        #///artifact.version version]
+             #versioning versioning]))))
 
 (def: .public equivalence
   (Equivalence Metadata)
@@ -137,8 +137,8 @@
       
       (#try.Failure error)
       (in (#try.Success
-           {#artifact artifact
-            #versioning ///artifact/versioning.init})))))
+           [#artifact artifact
+            #versioning ///artifact/versioning.init])))))
 
 (def: .public (write repository artifact metadata)
   (-> (Repository Async) Artifact Metadata (Async (Try Any)))
-- 
cgit v1.2.3