diff options
author | Eduardo Julian | 2020-11-28 21:40:29 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-11-28 21:40:29 -0400 |
commit | 7444deb1b80d469280fcb0684d91c13f752a86d6 (patch) | |
tree | 132f8aa480dad400c20971f5e085876da8772b75 /stdlib/source/program | |
parent | a02b7bf8ff358ccfa35b03272d28537aeac723ae (diff) |
Re-named "_.claim" to "_.cover'".
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/pom.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux index 8a6712930..f8fd5f4f3 100644 --- a/stdlib/source/program/aedifex/pom.lux +++ b/stdlib/source/program/aedifex/pom.lux @@ -37,13 +37,13 @@ (def: version XML - (#_.Node ["" "modelVersion"] _.attrs + (#_.Node ["" "modelVersion"] _.attributes (list (#_.Text "4.0.0")))) (def: (property tag value) (-> Text Text XML) (#_.Node ["" tag] - _.attrs + _.attributes (list (#_.Text value)))) (def: (artifact value) @@ -63,37 +63,37 @@ (|> (list (..property "name" name) (..property "url" url) (..distribution distribution)) - (#_.Node ["" "license"] _.attrs))) + (#_.Node ["" "license"] _.attributes))) (def: repository (-> Address XML) (|>> (..property "url") list - (#_.Node ["" "repository"] _.attrs))) + (#_.Node ["" "repository"] _.attributes))) (def: (dependency value) (-> Dependency XML) (#_.Node ["" "dependency"] - _.attrs + _.attributes (list\compose (..artifact (get@ #//dependency.artifact value)) (list (..property "type" (get@ #//dependency.type value)))))) (def: (group tag) (-> Text (-> (List XML) XML)) - (|>> (#_.Node ["" tag] _.attrs))) + (|>> (#_.Node ["" tag] _.attributes))) (comment (def: scm (-> /.SCM XML) (|>> (..property "url") list - (#_.Node ["" "scm"] _.attrs))) + (#_.Node ["" "scm"] _.attributes))) (def: (organization [name url]) (-> /.Organization XML) (|> (list (..property "name" name) (..property "url" url)) - (#_.Node ["" "organization"] _.attrs))) + (#_.Node ["" "organization"] _.attributes))) (def: (developer-organization [name url]) (-> /.Organization (List XML)) @@ -109,7 +109,7 @@ (template [<name> <type> <tag>] [(def: <name> (-> <type> XML) - (|>> ..developer' (#_.Node ["" <tag>] _.attrs)))] + (|>> ..developer' (#_.Node ["" <tag>] _.attributes)))] [developer /.Developer "developer"] [contributor /.Contributor "contributor"] @@ -133,7 +133,7 @@ (case (get@ #/.identity value) (#.Some identity) (#try.Success - (#_.Node ["" ..project-tag] _.attrs + (#_.Node ["" ..project-tag] _.attributes ($_ list\compose (list ..version) (..artifact identity) |