From 0f9bc13a34b729d9ae9db31276feb2a66785d06b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 14 Aug 2022 21:02:22 -0400
Subject: Documentation changes for v0.7.0

---
 stdlib/source/program/aedifex/pom.lux | 25 ++++++++++++++++++-------
 1 file changed, 18 insertions(+), 7 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 eed536317..cafb480a2 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -126,10 +126,10 @@
   [contributor /.Contributor "contributor"]
   )
 
-(def (info value)
-  (-> /.Info (List XML))
+(def (info identity value)
+  (-> Artifact /.Info (List XML))
   (all list#composite
-       (|> value (the /.#name) (maybe#each (..property "name")) maybe.list)
+       (|> identity (the //artifact.#name) (..property "name") list)
        (|> value (the /.#url) (maybe#each (..property ..url_tag)) maybe.list)
        (|> value (the /.#description) (maybe#each (..property "description")) maybe.list)
        (|> value (the /.#licenses) (list#each ..license) (..group "licenses") list)
@@ -144,16 +144,27 @@
   (when (the /.#identity value)
     {.#Some identity}
     {try.#Success
-     {xml.#Node ["" ..project_tag] xml.attributes
+     {xml.#Node ["" ..project_tag]
+                xml.attributes
                 (all list#composite
                      (list ..version)
                      (..artifact identity)
                      (|> value
                          (the /.#info)
-                         (maybe#each ..info)
+                         (maybe#each (..info identity))
                          (maybe.else (list)))
-                     (|> value (the /.#repositories) set.list (list#each ..repository) (..group "repositories") list)
-                     (|> value (the /.#dependencies) set.list (list#each ..dependency) (..group ..dependencies_tag) list)
+                     (|> value
+                         (the /.#repositories)
+                         set.list
+                         (list#each ..repository)
+                         (..group "repositories")
+                         list)
+                     (|> value
+                         (the /.#dependencies)
+                         set.list
+                         (list#each ..dependency)
+                         (..group ..dependencies_tag)
+                         list)
                      )}}
 
     _
-- 
cgit v1.2.3