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/artifact.lux   | 40 +++++++++++-----------
 1 file changed, 20 insertions(+), 20 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index d0bdf887e..ad0477dcc 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -59,10 +59,10 @@
 
 (def: (time_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: (instant_format value)
   (%.Format Instant)
@@ -84,7 +84,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> (|>)]
@@ -94,15 +94,15 @@
 
 (def: versions_format
   (-> (List Version) XML)
-  (|>> (list\each ..version_format) {#xml.Node ..<versions> xml.attributes}))
+  (|>> (list\each ..version_format) {xml.#Node ..<versions> xml.attributes}))
 
 (def: .public (format value)
   (-> Metadata XML)
-  {#xml.Node ..<metadata>
+  {xml.#Node ..<metadata>
              xml.attributes
              (list (..group_format (value@ #group value))
                    (..name_format (value@ #name value))
-                   {#xml.Node ..<versioning>
+                   {xml.#Node ..<versioning>
                               xml.attributes
                               (list (..versions_format (value@ #versions value))
                                     (..last_updated_format (value@ #last_updated value)))})})
@@ -129,10 +129,10 @@
      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]))))
 
 (def: last_updated_parser
   (Parser Instant)
@@ -178,20 +178,20 @@
   (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
-           (let [(^slots [#///artifact.group #///artifact.name]) artifact]
-             [#group group
-              #name name
-              #versions (list)
-              #last_updated ..epoch])}))))
+      {try.#Failure error}
+      (in {try.#Success
+           (let [(^slots [///artifact.#group ///artifact.#name]) artifact]
+             [..#group #group
+              ..#name #name
+              ..#versions (list)
+              ..#last_updated ..epoch])}))))
 
 (def: .public (write repository artifact metadata)
   (-> (Repository Async) Artifact Metadata (Async (Try Any)))
-- 
cgit v1.2.3