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.

---
 stdlib/source/test/aedifex/metadata/artifact.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/test/aedifex/metadata/artifact.lux')

diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index eb8b4aec1..e5e903e65 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -60,10 +60,10 @@
                 month (month.by_number month)
                 date (date.date year month day_of_month)
                 time (time.time
-                      {#time.hour hour
+                      [#time.hour hour
                        #time.minute minute
                        #time.second second
-                       #time.milli_second 0})]
+                       #time.milli_second 0])]
                (in (instant.of_date_time date time))))))))
 
 (def: .public test
@@ -72,12 +72,12 @@
       (_.for [/.Metadata])
       (do random.monad
         [expected ..random
-         .let [artifact {#///artifact.group (value@ #/.group expected)
+         .let [artifact [#///artifact.group (value@ #/.group expected)
                          #///artifact.name (value@ #/.name expected)
                          #///artifact.version (|> expected
                                                   (value@ #/.versions)
                                                   list.head
-                                                  (maybe.else ""))}]]
+                                                  (maybe.else ""))]]]
         ($_ _.and
             (_.for [/.equivalence]
                    ($equivalence.spec /.equivalence ..random))
-- 
cgit v1.2.3