From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

---
 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 932a24207..226de3015 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -5,7 +5,7 @@
      [monad {"+" [do]}]]
     [control
      [pipe {"+" [case>]}]
-     ["[0]" maybe ("[1]\[0]" functor)]
+     ["[0]" maybe ("[1]#[0]" functor)]
      ["[0]" try {"+" [Try]}]
      ["[0]" exception]
      ["<>" parser
@@ -16,7 +16,7 @@
      [format
       ["_" xml {"+" [Tag XML]}]]
      [collection
-      ["[0]" list ("[1]\[0]" monoid functor mix)]
+      ["[0]" list ("[1]#[0]" monoid functor mix)]
       ["[0]" set]
       ["[0]" dictionary]]]
     [world
@@ -85,7 +85,7 @@
   (-> Dependency XML)
   {_.#Node ["" ..dependency_tag]
            _.attributes
-           (list\composite (..artifact (value@ //dependency.#artifact value))
+           (list#composite (..artifact (value@ //dependency.#artifact value))
                            (list (..property "type" (value@ //dependency.#type value))))})
 
 (def: (group tag)
@@ -114,7 +114,7 @@
     (-> /.Developer (List XML))
     (list& (..property "name" name)
            (..property "email" email)
-           (|> organization (maybe\each ..developer_organization) (maybe.else (list)))))
+           (|> organization (maybe#each ..developer_organization) (maybe.else (list)))))
 
   (template [<name> <type> <tag>]
     [(def: <name>
@@ -127,14 +127,14 @@
 
   (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)
+    ($_ 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)
         ))
   )
 
@@ -144,11 +144,11 @@
     {.#Some identity}
     {try.#Success
      {_.#Node ["" ..project_tag] _.attributes
-              ($_ list\composite
+              ($_ 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 (value@ /.#repositories) set.list (list#each ..repository) (..group "repositories") list)
+                  (|> value (value@ /.#dependencies) set.list (list#each ..dependency) (..group ..dependencies_tag) list)
                   )}}
 
     _
@@ -159,13 +159,13 @@
   (do [! <>.monad]
     [tag <xml>.tag]
     (<| (<xml>.node tag)
-        (\ ! each (|>> [tag]))
+        (# ! each (|>> [tag]))
         <xml>.text)))
 
 (def: (dependency_parser own_version parent_version)
   (-> Text Text (Parser Dependency))
   (do [! <>.monad]
-    [properties (\ ! each (dictionary.of_list name.hash)
+    [properties (# ! each (dictionary.of_list name.hash)
                    (<| (<xml>.node ["" ..dependency_tag])
                        (<>.some ..property_parser)))]
     (<| <>.lifted
@@ -224,8 +224,8 @@
                             <xml>.somewhere
                             (<>.else (list)))
            _ (<>.some <xml>.any)]
-          (in (|> (\ /.monoid identity)
+          (in (|> (# /.monoid identity)
                   (revised@ /.#dependencies (function (_ empty)
-                                              (list\mix set.has empty dependencies)))
+                                              (list#mix set.has empty dependencies)))
                   (revised@ /.#repositories (function (_ empty)
-                                              (list\mix set.has empty repositories)))))))))
+                                              (list#mix set.has empty repositories)))))))))
-- 
cgit v1.2.3