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/artifact.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 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 85aafa550..eb8b4aec1 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -48,12 +48,12 @@
       (random.ascii/alpha 5)
       (random.list 5 (random.ascii/alpha 5))
       (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)
@@ -89,7 +89,7 @@
                            /.format
                            list
                            (<xml>.result /.parser)
-                           (try\map (\ /.equivalence = expected))
+                           (try\each (\ /.equivalence = expected))
                            (try.else false))))
             (_.cover [/.uri]
                      (text\= (//.remote_project_uri artifact)
-- 
cgit v1.2.3