From dda05bca0956af5e5b3875c4cc36e61aa04772e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 00:07:08 -0400
Subject: Made the "#" character great again!

---
 stdlib/source/program/aedifex/pom.lux | 74 +++++++++++++++++------------------
 1 file changed, 37 insertions(+), 37 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 e98730532..932a24207 100644
--- a/stdlib/source/program/aedifex/pom.lux
+++ b/stdlib/source/program/aedifex/pom.lux
@@ -47,25 +47,25 @@
 
 (def: version
   XML
-  {#_.Node ["" "modelVersion"] _.attributes
-           (list {#_.Text "4.0.0"})})
+  {_.#Node ["" "modelVersion"] _.attributes
+           (list {_.#Text "4.0.0"})})
 
 (def: (property tag value)
   (-> Text Text XML)
-  {#_.Node ["" tag]
+  {_.#Node ["" tag]
            _.attributes
-           (list {#_.Text value})})
+           (list {_.#Text value})})
 
 (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 (value@ //artifact.#group value))
+        (..property ..artifact_tag (value@ //artifact.#name value))
+        (..property ..version_tag (value@ //artifact.#version value))))
 
 (def: distribution
   (-> /.Distribution XML)
-  (|>> (case> #/.Repo "repo"
-              #/.Manual "manual")
+  (|>> (case> {/.#Repo} "repo"
+              {/.#Manual} "manual")
        (..property "distribution")))
 
 (def: (license [name url distribution])
@@ -73,37 +73,37 @@
   (|> (list (..property "name" name)
             (..property ..url_tag url)
             (..distribution distribution))
-      {#_.Node ["" "license"] _.attributes}))
+      {_.#Node ["" "license"] _.attributes}))
 
 (def: repository
   (-> Address XML)
   (|>> (..property ..url_tag)
        list
-       {#_.Node ["" ..repository_tag] _.attributes}))
+       {_.#Node ["" ..repository_tag] _.attributes}))
 
 (def: (dependency value)
   (-> Dependency XML)
-  {#_.Node ["" ..dependency_tag]
+  {_.#Node ["" ..dependency_tag]
            _.attributes
-           (list\composite (..artifact (value@ #//dependency.artifact value))
-                           (list (..property "type" (value@ #//dependency.type value))))})
+           (list\composite (..artifact (value@ //dependency.#artifact value))
+                           (list (..property "type" (value@ //dependency.#type value))))})
 
 (def: (group tag)
   (-> Text (-> (List XML) XML))
-  (|>> {#_.Node ["" tag] _.attributes}))
+  (|>> {_.#Node ["" tag] _.attributes}))
 
 (comment
   (def: scm
     (-> /.SCM XML)
     (|>> (..property ..url_tag)
          list
-         {#_.Node ["" "scm"] _.attributes}))
+         {_.#Node ["" "scm"] _.attributes}))
 
   (def: (organization [name url])
     (-> /.Organization XML)
     (|> (list (..property "name" name)
               (..property ..url_tag url))
-        {#_.Node ["" "organization"] _.attributes}))
+        {_.#Node ["" "organization"] _.attributes}))
 
   (def: (developer_organization [name url])
     (-> /.Organization (List XML))
@@ -119,7 +119,7 @@
   (template [<name> <type> <tag>]
     [(def: <name>
        (-> <type> XML)
-       (|>> ..developer' {#_.Node ["" <tag>] _.attributes}))]
+       (|>> ..developer' {_.#Node ["" <tag>] _.attributes}))]
 
     [developer /.Developer "developer"]
     [contributor /.Contributor "contributor"]
@@ -128,27 +128,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 (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)
         ))
   )
 
 (def: .public (write value)
   (-> /.Profile (Try XML))
-  (case (value@ #/.identity value)
-    {#.Some identity}
-    {#try.Success
-     {#_.Node ["" ..project_tag] _.attributes
+  (case (value@ /.#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 (value@ /.#repositories) set.list (list\each ..repository) (..group "repositories") list)
+                  (|> value (value@ /.#dependencies) set.list (list\each ..dependency) (..group ..dependencies_tag) list)
                   )}}
 
     _
@@ -173,14 +173,14 @@
         (do maybe.monad
           [group (dictionary.value ["" ..group_tag] properties)
            artifact (dictionary.value ["" ..artifact_tag] properties)]
-          (in [#//dependency.artifact [#//artifact.group group
-                                       #//artifact.name artifact
-                                       #//artifact.version (|> properties
+          (in [//dependency.#artifact [//artifact.#group group
+                                       //artifact.#name artifact
+                                       //artifact.#version (|> properties
                                                                (dictionary.value ["" ..version_tag])
                                                                (maybe.else "")
                                                                (text.replaced "${project.version}" own_version)
                                                                (text.replaced "${project.parent.version}" parent_version))]
-               #//dependency.type (|> properties
+               //dependency.#type (|> properties
                                       (dictionary.value ["" "type"])
                                       (maybe.else //artifact/type.jvm_library))])))))
 
@@ -225,7 +225,7 @@
                             (<>.else (list)))
            _ (<>.some <xml>.any)]
           (in (|> (\ /.monoid identity)
-                  (revised@ #/.dependencies (function (_ empty)
+                  (revised@ /.#dependencies (function (_ empty)
                                               (list\mix set.has empty dependencies)))
-                  (revised@ #/.repositories (function (_ empty)
+                  (revised@ /.#repositories (function (_ empty)
                                               (list\mix set.has empty repositories)))))))))
-- 
cgit v1.2.3