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/program/aedifex/metadata/artifact.lux | 2 +-
 stdlib/source/program/aedifex/metadata/snapshot.lux | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program/aedifex/metadata')

diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index d8134515c..85fe747bd 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -93,7 +93,7 @@
 
 (def: versions_format
   (-> (List Version) XML)
-  (|>> (list\map ..version_format) (#xml.Node ..<versions> xml.attributes)))
+  (|>> (list\each ..version_format) (#xml.Node ..<versions> xml.attributes)))
 
 (def: .public (format value)
   (-> Metadata XML)
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 3852f5fe1..3a3464cd6 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -94,7 +94,7 @@
                                                          #///artifact/snapshot/version.value version
                                                          #///artifact/snapshot/version.updated ///artifact/time.epoch}]
                       (|> (<xml>.somewhere ///artifact/versioning.parser)
-                          (\ ! map
+                          (\ ! each
                              (revised@ #///artifact/versioning.versions
                                        (: (-> (List ///artifact/snapshot/version.Version)
                                               (List ///artifact/snapshot/version.Version))
-- 
cgit v1.2.3