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/cli.lux | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index e41f3e44c..d08d5f1a1 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -53,20 +53,20 @@
 (def: (compilation_format value)
   (-> /.Compilation (List Text))
   (case value
-    #/.Build (list "build")
-    #/.Test (list "test")))
+    {/.#Build} (list "build")
+    {/.#Test} (list "test")))
 
 (def: (format value)
   (-> /.Command (List Text))
   (case value
-    #/.Version (list "version")
-    #/.Clean (list "clean")
-    #/.POM (list "pom")
-    #/.Dependencies (list "deps")
-    #/.Install (list "install")
-    {#/.Deploy repository [user password]} (list "deploy" repository user password)
-    {#/.Compilation compilation} (..compilation_format compilation)
-    {#/.Auto compilation} (list& "auto" (..compilation_format compilation))))
+    {/.#Version} (list "version")
+    {/.#Clean} (list "clean")
+    {/.#POM} (list "pom")
+    {/.#Dependencies} (list "deps")
+    {/.#Install} (list "install")
+    {/.#Deploy repository [user password]} (list "deploy" repository user password)
+    {/.#Compilation compilation} (..compilation_format compilation)
+    {/.#Auto compilation} (list& "auto" (..compilation_format compilation))))
 
 (def: without_profile
   Test
@@ -76,11 +76,11 @@
             (|> expected
                 ..format
                 (cli.result /.command)
-                (case> {#try.Success [names actual]}
+                (case> {try.#Success [names actual]}
                        (and (\ (list.equivalence text.equivalence) = (list //.default) names)
                             (\ /.equivalence = expected actual))
                        
-                       {#try.Failure error}
+                       {try.#Failure error}
                        false)))))
 
 (def: with_profile
@@ -93,11 +93,11 @@
                 ..format
                 (list& "with" expected_profile)
                 (cli.result /.command)
-                (case> {#try.Success [actual_profile actual_command]}
+                (case> {try.#Success [actual_profile actual_command]}
                        (and (\ (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile)
                             (\ /.equivalence = expected_command actual_command))
                        
-                       {#try.Failure error}
+                       {try.#Failure error}
                        false)))))
 
 (def: .public test
-- 
cgit v1.2.3