From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 stdlib/source/program/aedifex/metadata/artifact.lux |  8 ++++----
 stdlib/source/program/aedifex/metadata/snapshot.lux | 14 +++++++-------
 2 files changed, 11 insertions(+), 11 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 0d6f86c2c..3512114be 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -99,12 +99,12 @@
   (-> Metadata XML)
   (#xml.Node ..<metadata>
              xml.attributes
-             (list (..group_format (get@ #group value))
-                   (..name_format (get@ #name value))
+             (list (..group_format (value@ #group value))
+                   (..name_format (value@ #name value))
                    (#xml.Node ..<versioning>
                               xml.attributes
-                              (list (..versions_format (get@ #versions value))
-                                    (..last_updated_format (get@ #last_updated value)))))))
+                              (list (..versions_format (value@ #versions value))
+                                    (..last_updated_format (value@ #last_updated value)))))))
 
 (def: (text tag)
   (-> xml.Tag (Parser Text))
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 90fa9bb86..6a32effef 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -95,14 +95,14 @@
                                                          #///artifact/snapshot/version.updated ///artifact/time.epoch}]
                       (|> (<xml>.somewhere ///artifact/versioning.parser)
                           (\ ! map
-                             (update@ #///artifact/versioning.versions
-                                      (: (-> (List ///artifact/snapshot/version.Version)
-                                             (List ///artifact/snapshot/version.Version))
-                                         (|>> (case> (^ (list))
-                                                     (list <default_version>)
+                             (revised@ #///artifact/versioning.versions
+                                       (: (-> (List ///artifact/snapshot/version.Version)
+                                              (List ///artifact/snapshot/version.Version))
+                                          (|>> (case> (^ (list))
+                                                      (list <default_version>)
 
-                                                     versions
-                                                     versions)))))
+                                                      versions
+                                                      versions)))))
                           (<>.else {#///artifact/versioning.snapshot #///artifact/snapshot.Local
                                     #///artifact/versioning.last_updated ///artifact/time.epoch
                                     #///artifact/versioning.versions (list <default_version>)})))]
-- 
cgit v1.2.3