diff options
Diffstat (limited to 'stdlib/source/program/aedifex/pom.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/pom.lux | 25 |
1 files changed, 18 insertions, 7 deletions
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) )}} _ |