From 93eb82e1bf6d2f2a6b3b0adb85f4ab93cbb766a9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Mar 2022 03:33:01 -0400
Subject: De-sigil-ification: @

---
 stdlib/source/program/aedifex/pom.lux | 38 +++++++++++++++++------------------
 1 file changed, 19 insertions(+), 19 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 26dd35348..ccb7f11ac 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -59,9 +59,9 @@
 
 (def: (artifact value)
   (-> Artifact (List XML))
-  (list (..property ..group_tag (value@ //artifact.#group value))
-        (..property ..artifact_tag (value@ //artifact.#name value))
-        (..property ..version_tag (value@ //artifact.#version value))))
+  (list (..property ..group_tag (the //artifact.#group value))
+        (..property ..artifact_tag (the //artifact.#name value))
+        (..property ..version_tag (the //artifact.#version value))))
 
 (def: distribution
   (-> /.Distribution XML)
@@ -86,8 +86,8 @@
   (-> Dependency XML)
   {_.#Node ["" ..dependency_tag]
            _.attributes
-           (list#composite (..artifact (value@ //dependency.#artifact value))
-                           (list (..property "type" (value@ //dependency.#type value))))})
+           (list#composite (..artifact (the //dependency.#artifact value))
+                           (list (..property "type" (the //dependency.#type value))))})
 
 (def: (group tag)
   (-> Text (-> (List XML) XML))
@@ -129,27 +129,27 @@
   (def: (info value)
     (-> /.Info (List XML))
     ($_ list#composite
-        (|> value (value@ /.#url) (maybe#each (..property ..url_tag)) maybe.list)
-        (|> value (value@ /.#description) (maybe#each (..property "description")) maybe.list)
-        (|> value (value@ /.#licenses) (list#each ..license) (..group "licenses") list)
-        (|> value (value@ /.#scm) (maybe#each ..scm) maybe.list)
-        (|> value (value@ /.#organization) (maybe#each ..organization) maybe.list)
-        (|> value (value@ /.#developers) (list#each ..developer) (..group "developers") list)
-        (|> value (value@ /.#contributors) (list#each ..contributor) (..group "contributors") 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)
+        (|> value (the /.#scm) (maybe#each ..scm) maybe.list)
+        (|> value (the /.#organization) (maybe#each ..organization) maybe.list)
+        (|> value (the /.#developers) (list#each ..developer) (..group "developers") list)
+        (|> value (the /.#contributors) (list#each ..contributor) (..group "contributors") list)
         ))
   )
 
 (def: .public (write value)
   (-> /.Profile (Try XML))
-  (case (value@ /.#identity value)
+  (case (the /.#identity value)
     {.#Some identity}
     {try.#Success
      {_.#Node ["" ..project_tag] _.attributes
               ($_ list#composite
                   (list ..version)
                   (..artifact identity)
-                  (|> value (value@ /.#repositories) set.list (list#each ..repository) (..group "repositories") list)
-                  (|> value (value@ /.#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)
                   )}}
 
     _
@@ -226,7 +226,7 @@
                             (<>.else (list)))
            _ (<>.some <xml>.any)]
           (in (|> (# /.monoid identity)
-                  (revised@ /.#dependencies (function (_ empty)
-                                              (list#mix set.has empty dependencies)))
-                  (revised@ /.#repositories (function (_ empty)
-                                              (list#mix set.has empty repositories)))))))))
+                  (revised /.#dependencies (function (_ empty)
+                                             (list#mix set.has empty dependencies)))
+                  (revised /.#repositories (function (_ empty)
+                                             (list#mix set.has empty repositories)))))))))
-- 
cgit v1.2.3