aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex
diff options
context:
space:
mode:
authorEduardo Julian2020-11-28 21:40:29 -0400
committerEduardo Julian2020-11-28 21:40:29 -0400
commit7444deb1b80d469280fcb0684d91c13f752a86d6 (patch)
tree132f8aa480dad400c20971f5e085876da8772b75 /stdlib/source/program/aedifex
parenta02b7bf8ff358ccfa35b03272d28537aeac723ae (diff)
Re-named "_.claim" to "_.cover'".
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/pom.lux20
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)