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

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

diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index 52f7a1562..069cefcd2 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -64,16 +64,16 @@
             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: random_versioning
   (Random Versioning)
   ($_ random.and
-      (random\in #///snapshot.Local)
+      (random\in {///snapshot.#Local})
       $///artifact/time.random
       (random.list 5 $///artifact/snapshot/version.random)
       ))
@@ -91,7 +91,7 @@
       (_.for [/.Metadata])
       (do random.monad
         [expected ..random
-         .let [artifact (value@ #/.artifact expected)]]
+         .let [artifact (value@ /.#artifact expected)]]
         ($_ _.and
             (_.for [/.equivalence]
                    ($equivalence.spec /.equivalence ..random))
@@ -117,12 +117,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