From 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 05:42:36 -0400
Subject: De-sigil-ification: $

---
 stdlib/source/program/aedifex/pom.lux | 40 +++++++++++++++++------------------
 1 file changed, 20 insertions(+), 20 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 683e1bb6d..2fe4c6de1 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -128,16 +128,16 @@
 
 (def: (info value)
   (-> /.Info (List XML))
-  ($_ list#composite
-      (|> value (the /.#name) (maybe#each (..property "name")) maybe.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)
-      ))
+  (all list#composite
+       (|> value (the /.#name) (maybe#each (..property "name")) maybe.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))
@@ -145,16 +145,16 @@
     {.#Some identity}
     {try.#Success
      {_.#Node ["" ..project_tag] _.attributes
-              ($_ list#composite
-                  (list ..version)
-                  (..artifact identity)
-                  (|> value
-                      (the /.#info)
-                      (maybe#each ..info)
-                      (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)
-                  )}}
+              (all list#composite
+                   (list ..version)
+                   (..artifact identity)
+                   (|> value
+                       (the /.#info)
+                       (maybe#each ..info)
+                       (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)
+                   )}}
 
     _
     (exception.except /.no_identity [])))
-- 
cgit v1.2.3