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!

---
 .../source/program/aedifex/metadata/snapshot.lux   | 32 +++++++++++-----------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'stdlib/source/program/aedifex/metadata/snapshot.lux')

diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 05a065c6f..c840fc870 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -62,7 +62,7 @@
 (template [<name> <type> <tag> <pre>]
   [(def: <name>
      (-> <type> XML)
-     (|>> <pre> #xml.Text list {#xml.Node <tag> xml.attributes}))]
+     (|>> <pre> {xml.#Text} list {xml.#Node <tag> xml.attributes}))]
 
   [group_format Group ..<group> (|>)]
   [name_format Name ..<name> (|>)]
@@ -71,8 +71,8 @@
 
 (def: .public (format (^slots [#artifact #versioning]))
   (-> Metadata XML)
-  (let [(^slots [#///artifact.group #///artifact.name #///artifact.version]) artifact]
-    {#xml.Node ..<metadata>
+  (let [(^slots [///artifact.#group ///artifact.#name ///artifact.#version]) artifact]
+    {xml.#Node ..<metadata>
                xml.attributes
                (list (..group_format group)
                      (..name_format name)
@@ -91,12 +91,12 @@
         [group (<xml>.somewhere (..text ..<group>))
          name (<xml>.somewhere (..text ..<name>))
          version (<xml>.somewhere (..text ..<version>))
-         versioning (with_expansions [<default_version> [#///artifact/snapshot/version.extension ///artifact/type.jvm_library
-                                                         #///artifact/snapshot/version.value version
-                                                         #///artifact/snapshot/version.updated ///artifact/time.epoch]]
+         versioning (with_expansions [<default_version> [///artifact/snapshot/version.#extension ///artifact/type.jvm_library
+                                                         ///artifact/snapshot/version.#value version
+                                                         ///artifact/snapshot/version.#updated ///artifact/time.epoch]]
                       (|> (<xml>.somewhere ///artifact/versioning.parser)
                           (\ ! each
-                             (revised@ #///artifact/versioning.versions
+                             (revised@ ///artifact/versioning.#versions
                                        (: (-> (List ///artifact/snapshot/version.Version)
                                               (List ///artifact/snapshot/version.Version))
                                           (|>> (case> (^ (list))
@@ -104,12 +104,12 @@
 
                                                       versions
                                                       versions)))))
-                          (<>.else [#///artifact/versioning.snapshot #///artifact/snapshot.Local
-                                    #///artifact/versioning.last_updated ///artifact/time.epoch
-                                    #///artifact/versioning.versions (list <default_version>)])))]
-        (in [#artifact [#///artifact.group group
-                        #///artifact.name name
-                        #///artifact.version version]
+                          (<>.else [///artifact/versioning.#snapshot {///artifact/snapshot.#Local}
+                                    ///artifact/versioning.#last_updated ///artifact/time.epoch
+                                    ///artifact/versioning.#versions (list <default_version>)])))]
+        (in [#artifact [///artifact.#group group
+                        ///artifact.#name name
+                        ///artifact.#version version]
              #versioning versioning]))))
 
 (def: .public equivalence
@@ -128,15 +128,15 @@
   (do async.monad
     [project (\ repository download (..uri artifact))]
     (case project
-      {#try.Success project}
+      {try.#Success project}
       (in (|> project
               (do> try.monad
                    [(\ utf8.codec decoded)]
                    [(\ xml.codec decoded)]
                    [list (<xml>.result ..parser)])))
       
-      {#try.Failure error}
-      (in {#try.Success
+      {try.#Failure error}
+      (in {try.#Success
            [#artifact artifact
             #versioning ///artifact/versioning.init]}))))
 
-- 
cgit v1.2.3