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/test/aedifex/metadata/artifact.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index a1d3133c5..5708eb39b 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -60,10 +60,10 @@
                 month (month.by_number month)
                 date (date.date year month day_of_month)
                 time (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])]
                (in (instant.of_date_time date time))))))))
 
 (def: .public test
@@ -72,10 +72,10 @@
       (_.for [/.Metadata])
       (do random.monad
         [expected ..random
-         .let [artifact [#///artifact.group (value@ #/.group expected)
-                         #///artifact.name (value@ #/.name expected)
-                         #///artifact.version (|> expected
-                                                  (value@ #/.versions)
+         .let [artifact [///artifact.#group (value@ /.#group expected)
+                         ///artifact.#name (value@ /.#name expected)
+                         ///artifact.#version (|> expected
+                                                  (value@ /.#versions)
                                                   list.head
                                                   (maybe.else ""))]]]
         ($_ _.and
@@ -105,12 +105,12 @@
                      actual (/.read repository artifact)]
                     (_.cover' [/.write /.read]
                               (and (case wrote?
-                                     {#try.Success _} true
-                                     {#try.Failure _} false)
+                                     {try.#Success _} true
+                                     {try.#Failure _} false)
                                    (case actual
-                                     {#try.Success actual}
+                                     {try.#Success actual}
                                      (\ /.equivalence = expected actual)
                                      
-                                     {#try.Failure _}
+                                     {try.#Failure _}
                                      false))))))
             ))))
-- 
cgit v1.2.3