From 36303d6cb2ce3ab9e36d045b9516c997bd461862 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 24 Aug 2021 05:23:45 -0400
Subject: Outsourced the syntax for labelled type definitions to macros.

---
 stdlib/source/test/aedifex/metadata/snapshot.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index 2c74296e0..5010053a5 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -52,12 +52,12 @@
 (def: random_instant
   (Random Instant)
   (do {! random.monad}
-    [year (\ ! map (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
-     month (\ ! map (|>> (n.% 12) (n.+ 1)) random.nat)
-     day_of_month (\ ! map (|>> (n.% 28) (n.+ 1)) random.nat)
-     hour (\ ! map (n.% 24) random.nat)
-     minute (\ ! map (n.% 60) random.nat)
-     second (\ ! map (n.% 60) random.nat)]
+    [year (\ ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat)
+     month (\ ! each (|>> (n.% 12) (n.+ 1)) random.nat)
+     day_of_month (\ ! each (|>> (n.% 28) (n.+ 1)) random.nat)
+     hour (\ ! each (n.% 24) random.nat)
+     minute (\ ! each (n.% 60) random.nat)
+     second (\ ! each (n.% 60) random.nat)]
     (in (try.trusted
          (do try.monad
            [year (year.year year)
@@ -101,7 +101,7 @@
                          /.format
                          list
                          (<xml>.result /.parser)
-                         (try\map (\ /.equivalence = expected))
+                         (try\each (\ /.equivalence = expected))
                          (try.else false)))
             (_.cover [/.uri]
                      (text\= (//.remote_artifact_uri artifact)
-- 
cgit v1.2.3