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/pom.lux | 38 +++++++++++++++++------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

(limited to 'stdlib/source/program/aedifex/pom.lux')

diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux
index 36e3ff440..810c30588 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -58,9 +58,9 @@
 
 (def: (artifact value)
   (-> Artifact (List XML))
-  (list (..property ..group_tag (get@ #//artifact.group value))
-        (..property ..artifact_tag (get@ #//artifact.name value))
-        (..property ..version_tag (get@ #//artifact.version value))))
+  (list (..property ..group_tag (value@ #//artifact.group value))
+        (..property ..artifact_tag (value@ #//artifact.name value))
+        (..property ..version_tag (value@ #//artifact.version value))))
 
 (def: distribution
   (-> /.Distribution XML)
@@ -85,8 +85,8 @@
   (-> Dependency XML)
   (#_.Node ["" ..dependency_tag]
            _.attributes
-           (list\compose (..artifact (get@ #//dependency.artifact value))
-                         (list (..property "type" (get@ #//dependency.type value))))))
+           (list\compose (..artifact (value@ #//dependency.artifact value))
+                         (list (..property "type" (value@ #//dependency.type value))))))
 
 (def: (group tag)
   (-> Text (-> (List XML) XML))
@@ -128,27 +128,27 @@
   (def: (info value)
     (-> /.Info (List XML))
     ($_ list\compose
-        (|> value (get@ #/.url) (maybe\map (..property ..url_tag)) maybe.list)
-        (|> value (get@ #/.description) (maybe\map (..property "description")) maybe.list)
-        (|> value (get@ #/.licenses) (list\map ..license) (..group "licenses") list)
-        (|> value (get@ #/.scm) (maybe\map ..scm) maybe.list)
-        (|> value (get@ #/.organization) (maybe\map ..organization) maybe.list)
-        (|> value (get@ #/.developers) (list\map ..developer) (..group "developers") list)
-        (|> value (get@ #/.contributors) (list\map ..contributor) (..group "contributors") list)
+        (|> value (value@ #/.url) (maybe\map (..property ..url_tag)) maybe.list)
+        (|> value (value@ #/.description) (maybe\map (..property "description")) maybe.list)
+        (|> value (value@ #/.licenses) (list\map ..license) (..group "licenses") list)
+        (|> value (value@ #/.scm) (maybe\map ..scm) maybe.list)
+        (|> value (value@ #/.organization) (maybe\map ..organization) maybe.list)
+        (|> value (value@ #/.developers) (list\map ..developer) (..group "developers") list)
+        (|> value (value@ #/.contributors) (list\map ..contributor) (..group "contributors") list)
         ))
   )
 
 (def: .public (write value)
   (-> /.Profile (Try XML))
-  (case (get@ #/.identity value)
+  (case (value@ #/.identity value)
     (#.Some identity)
     (#try.Success
      (#_.Node ["" ..project_tag] _.attributes
               ($_ list\compose
                   (list ..version)
                   (..artifact identity)
-                  (|> value (get@ #/.repositories) set.list (list\map ..repository) (..group "repositories") list)
-                  (|> value (get@ #/.dependencies) set.list (list\map ..dependency) (..group ..dependencies_tag) list)
+                  (|> value (value@ #/.repositories) set.list (list\map ..repository) (..group "repositories") list)
+                  (|> value (value@ #/.dependencies) set.list (list\map ..dependency) (..group ..dependencies_tag) list)
                   )))
 
     _
@@ -225,7 +225,7 @@
                             (<>.else (list)))
            _ (<>.some <xml>.any)]
           (in (|> (\ /.monoid identity)
-                  (update@ #/.dependencies (function (_ empty)
-                                             (list\fold set.has empty dependencies)))
-                  (update@ #/.repositories (function (_ empty)
-                                             (list\fold set.has empty repositories)))))))))
+                  (revised@ #/.dependencies (function (_ empty)
+                                              (list\fold set.has empty dependencies)))
+                  (revised@ #/.repositories (function (_ empty)
+                                              (list\fold set.has empty repositories)))))))))
-- 
cgit v1.2.3