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.lux      | 10 +++++-----
 .../source/program/aedifex/artifact/snapshot/build.lux   |  4 ++--
 .../source/program/aedifex/artifact/snapshot/stamp.lux   |  4 ++--
 .../source/program/aedifex/artifact/snapshot/version.lux |  4 ++--
 .../program/aedifex/artifact/snapshot/version/value.lux  |  6 +++---
 stdlib/source/program/aedifex/artifact/time/date.lux     |  2 +-
 stdlib/source/program/aedifex/artifact/time/time.lux     | 16 ++++++++--------
 stdlib/source/program/aedifex/artifact/versioning.lux    | 10 +++++-----
 8 files changed, 28 insertions(+), 28 deletions(-)

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

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)
diff --git a/stdlib/source/program/aedifex/artifact/time/date.lux b/stdlib/source/program/aedifex/artifact/time/date.lux
index 167d0d2a2..3eeda23f0 100644
--- a/stdlib/source/program/aedifex/artifact/time/date.lux
+++ b/stdlib/source/program/aedifex/artifact/time/date.lux
@@ -51,7 +51,7 @@
       (if (or (i.< ..min_year year)
               (i.> ..max_year year))
         (exception.except ..year_is_out_of_range [(date.year raw)])
-        {#try.Success (:abstraction raw)})))
+        {try.#Success (:abstraction raw)})))
 
   (def: .public value
     (-> Date date.Date)
diff --git a/stdlib/source/program/aedifex/artifact/time/time.lux b/stdlib/source/program/aedifex/artifact/time/time.lux
index c27b1b69c..8b3258c3a 100644
--- a/stdlib/source/program/aedifex/artifact/time/time.lux
+++ b/stdlib/source/program/aedifex/artifact/time/time.lux
@@ -21,10 +21,10 @@
 
 (def: .public (format value)
   (%.Format Time)
-  (let [(^slots [#time.hour #time.minute #time.second]) (time.clock value)]
-    (%.format (//.pad hour)
-              (//.pad minute)
-              (//.pad second))))
+  (let [(^slots [time.#hour time.#minute time.#second]) (time.clock value)]
+    (%.format (//.pad #hour)
+              (//.pad #minute)
+              (//.pad #second))))
 
 (def: .public parser
   (<text>.Parser Time)
@@ -33,7 +33,7 @@
      minute (<>.codec n.decimal (<text>.exactly 2 <text>.decimal))
      second (<>.codec n.decimal (<text>.exactly 2 <text>.decimal))]
     (<>.lifted (time.time
-                [#time.hour hour
-                 #time.minute minute
-                 #time.second second
-                 #time.milli_second 0]))))
+                [time.#hour hour
+                 time.#minute minute
+                 time.#second second
+                 time.#milli_second 0]))))
diff --git a/stdlib/source/program/aedifex/artifact/versioning.lux b/stdlib/source/program/aedifex/artifact/versioning.lux
index cf30987d2..dbac91543 100644
--- a/stdlib/source/program/aedifex/artifact/versioning.lux
+++ b/stdlib/source/program/aedifex/artifact/versioning.lux
@@ -36,7 +36,7 @@
     #versions (List Version)]))
 
 (def: .public init
-  [#snapshot #//snapshot.Local
+  [#snapshot {//snapshot.#Local}
    #last_updated //time.epoch
    #versions (list)])
 
@@ -59,16 +59,16 @@
 
 (def: last_updated_format
   (-> //time.Time XML)
-  (|>> //time.format #xml.Text list {#xml.Node ..<last_updated> xml.attributes}))
+  (|>> //time.format {xml.#Text} list {xml.#Node ..<last_updated> xml.attributes}))
 
 (def: .public (format (^slots [#snapshot #last_updated #versions]))
   (-> Versioning XML)
-  (<| {#xml.Node ..<versioning> xml.attributes}
+  (<| {xml.#Node ..<versioning> xml.attributes}
       (list (//snapshot.format snapshot)
             (..last_updated_format last_updated)
             (|> versions
                 (list\each //snapshot/version.format)
-                {#xml.Node ..<snapshot_versions> xml.attributes}))))
+                {xml.#Node ..<snapshot_versions> xml.attributes}))))
 
 (def: (text tag)
   (-> xml.Tag (Parser Text))
@@ -84,7 +84,7 @@
   (Parser Versioning)
   (<| (<xml>.node ..<versioning>)
       ($_ <>.and
-          (<>.else #//snapshot.Local (<xml>.somewhere //snapshot.parser))
+          (<>.else {//snapshot.#Local} (<xml>.somewhere //snapshot.parser))
           (<>.else //time.epoch (<xml>.somewhere ..last_updated_parser))
           (<| (<>.else (list))
               <xml>.somewhere
-- 
cgit v1.2.3