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/artifact/snapshot/build.lux         | 4 ++--
 stdlib/source/program/aedifex/artifact/snapshot/stamp.lux         | 4 ++--
 stdlib/source/program/aedifex/artifact/snapshot/version.lux       | 4 ++--
 stdlib/source/program/aedifex/artifact/snapshot/version/value.lux | 6 +++---
 4 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/program/aedifex/artifact/snapshot')

diff --git a/stdlib/source/program/aedifex/artifact/snapshot/build.lux b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
index 4960f5862..44adcc18b 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/build.lux
@@ -31,9 +31,9 @@
 (def: .public format
   (-> Build XML)
   (|>> %.nat
-       #xml.Text
+       {xml.#Text}
        list
-       {#xml.Node ..tag xml.attributes}))
+       {xml.#Node ..tag xml.attributes}))
 
 (def: .public parser
   (Parser Build)
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index a840bd3c0..f5a08e942 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -35,9 +35,9 @@
 (def: time_format
   (-> Time XML)
   (|>> //time.format
-       {#xml.Text}
+       {xml.#Text}
        list
-       {#xml.Node ..<timestamp> xml.attributes}))
+       {xml.#Node ..<timestamp> xml.attributes}))
 
 (def: .public (format (^slots [#time #build]))
   (-> Stamp (List XML))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index 2dac99df9..194956419 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -43,11 +43,11 @@
 
 (def: (text_format tag value)
   (-> xml.Tag Text XML)
-  (|> value #xml.Text list {#xml.Node tag xml.attributes}))
+  (|> value {xml.#Text} list {xml.#Node tag xml.attributes}))
 
 (def: .public (format (^slots [#extension #value #updated]))
   (-> Version XML)
-  (<| {#xml.Node ..<snapshot_version> xml.attributes}
+  (<| {xml.#Node ..<snapshot_version> xml.attributes}
       (list (..text_format ..<extension> extension)
             (..text_format ..<value> value)
             (..text_format ..<updated> (///time.format updated)))))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
index 5f1816b3e..12fe26c46 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
@@ -32,11 +32,11 @@
 (def: .public (format (^slots [#version #snapshot]))
   (%.Format Value)
   (case snapshot
-    #///.Local
+    {///.#Local}
     version
     
-    {#///.Remote stamp}
-    (let [(^slots [#///stamp.time #///stamp.build]) stamp]
+    {///.#Remote stamp}
+    (let [(^slots [///stamp.#time ///stamp.#build]) stamp]
       (%.format (text.replaced ..snapshot
                                (///time.format time)
                                version)
-- 
cgit v1.2.3