From 7444deb1b80d469280fcb0684d91c13f752a86d6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 28 Nov 2020 21:40:29 -0400
Subject: Re-named "_.claim" to "_.cover'".

---
 stdlib/source/program/aedifex/pom.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 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 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)
-- 
cgit v1.2.3