Made the "#" character great again!

5 files changed, 14 insertions, 14 deletions

diff --git a/stdlib/source/program/aedifex/artifact/snapshot.lux b/stdlib/source/program/aedifex/artifact/snapshot.lux
index 5ac1e126a..16e10286e 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot.lux
@@ -17,7 +17,7 @@
 
 (type: .public Snapshot
   (Variant
-   #Local
+   {#Local}
    {#Remote Stamp}))
 
 (implementation: any_equivalence
@@ -45,9 +45,9 @@
 
 (def: local_copy_format
   XML
-  {#xml.Node <local_copy>
+  {xml.#Node <local_copy>
              xml.attributes
-             (list {#xml.Text ..local_copy_value})})
+             (list {xml.#Text ..local_copy_value})})
 
 (def: local_copy_parser
   (Parser Any)
@@ -57,9 +57,9 @@
 
 (def: .public (format snapshot)
   (-> Snapshot XML)
-  (<| {#xml.Node ..<snapshot> xml.attributes}
+  (<| {xml.#Node ..<snapshot> xml.attributes}
       (case snapshot
-        #Local
+        {#Local}
         (list ..local_copy_format)
         
         {#Remote stamp}
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)