Made the "#" character great again!

1 files changed, 39 insertions, 39 deletions

diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 1376d440a..ee69f1010 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -41,85 +41,85 @@
   (-> Any (Shell IO))
   (shell.mock
    (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
-     {#try.Success
+     {try.#Success
       (: (shell.Mock [])
          (implementation
           (def: (on_read state)
             (exception.except shell.no_more_output []))
-          (def: (on_error state)
+          (def: (on_fail state)
             (exception.except shell.no_more_output []))
           (def: (on_write input state)
-            {#try.Failure "on_write"})
+            {try.#Failure "on_write"})
           (def: (on_destroy state)
-            {#try.Failure "on_destroy"})
+            {try.#Failure "on_destroy"})
           (def: (on_await state)
-            {#try.Success [state shell.normal]})))})))
+            {try.#Success [state shell.normal]})))})))
 
 (def: .public bad_shell
   (-> Any (Shell IO))
   (shell.mock
    (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
-     {#try.Success
+     {try.#Success
       (: (shell.Mock [])
          (implementation
           (def: (on_read state)
             (exception.except shell.no_more_output []))
-          (def: (on_error state)
+          (def: (on_fail state)
             (exception.except shell.no_more_output []))
           (def: (on_write input state)
-            {#try.Failure "on_write"})
+            {try.#Failure "on_write"})
           (def: (on_destroy state)
-            {#try.Failure "on_destroy"})
+            {try.#Failure "on_destroy"})
           (def: (on_await state)
-            {#try.Success [state shell.error]})))})))
+            {try.#Success [state shell.error]})))})))
 
 (def: .public (reader_shell error?)
   (-> Bit (-> (List Text) (Shell IO)))
   (shell.mock
    (function (_ [actual_environment actual_working_directory actual_command actual_arguments])
-     {#try.Success
+     {try.#Success
       (: (shell.Mock (List Text))
          (implementation
           (def: (on_read state)
             (if error?
               (exception.except shell.no_more_output [])
               (case state
-                {#.Item head tail}
-                {#try.Success [tail head]}
+                {.#Item head tail}
+                {try.#Success [tail head]}
                 
-                #.End
+                {.#End}
                 (exception.except shell.no_more_output []))))
           (def: (on_error state)
             (if error?
               (case state
-                {#.Item head tail}
-                {#try.Success [tail head]}
+                {.#Item head tail}
+                {try.#Success [tail head]}
                 
-                #.End
+                {.#End}
                 (exception.except shell.no_more_output []))
               (exception.except shell.no_more_output [])))
           (def: (on_write input state)
-            {#try.Failure "on_write"})
+            {try.#Failure "on_write"})
           (def: (on_destroy state)
-            {#try.Failure "on_destroy"})
+            {try.#Failure "on_destroy"})
           (def: (on_await state)
-            {#try.Success [state shell.error]})))})))
+            {try.#Success [state shell.error]})))})))
 
 (def: compiler
   (Random Dependency)
   (do random.monad
     [lux_version (random.ascii/alpha 5)
-     .let [js_compiler [#///dependency.artifact [#///artifact.group /.lux_group
-                                                 #///artifact.name /.js_compiler_name
-                                                 #///artifact.version lux_version]
-                        #///dependency.type ///artifact/type.js_library]]]
+     .let [js_compiler [///dependency.#artifact [///artifact.#group /.lux_group
+                                                 ///artifact.#name /.js_compiler_name
+                                                 ///artifact.#version lux_version]
+                        ///dependency.#type ///artifact/type.js_library]]]
     (`` ($_ random.either
             (in js_compiler)
             (~~ (template [<compiler>]
-                  [(in [#///dependency.artifact [#///artifact.group /.lux_group
-                                                 #///artifact.name <compiler>
-                                                 #///artifact.version lux_version]
-                        #///dependency.type ///artifact/type.lux_library])]
+                  [(in [///dependency.#artifact [///artifact.#group /.lux_group
+                                                 ///artifact.#name <compiler>
+                                                 ///artifact.#version lux_version]
+                        ///dependency.#type ///artifact/type.lux_library])]
 
                   [/.jvm_compiler_name]
                   [/.python_compiler_name]
@@ -151,9 +151,9 @@
          .let [empty_profile (: Profile
                                 (\ ///.monoid identity))
                with_target (: (-> Profile Profile)
-                              (with@ #///.target target))
+                              (with@ ///.#target target))
                with_program (: (-> Profile Profile)
-                               (with@ #///.program {#.Some program}))
+                               (with@ ///.#program {.#Some program}))
                
                profile (|> empty_profile
                            with_program
@@ -164,19 +164,19 @@
                                   (with_target empty_profile))]
                   (_.cover' [/.no_specified_program]
                             (case outcome
-                              {#try.Success _}
+                              {try.#Success _}
                               false
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               (exception.match? /.no_specified_program error)))))
             (in (do async.monad
                   [outcome (/.do! (@version.echo "") (program.async (program.mock environment.empty home working_directory)) fs shell ///dependency/resolution.empty profile)]
                   (_.cover' [/.Compiler /.no_available_compiler]
                             (case outcome
-                              {#try.Success _}
+                              {try.#Success _}
                               false
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               (exception.match? /.no_available_compiler error)))))
             (do !
               [.let [console (@version.echo "")]
@@ -185,7 +185,7 @@
                     [verdict (do ///action.monad
                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs shell resolution
-                                         (with@ #///.compiler compiler profile))
+                                         (with@ ///.#compiler compiler profile))
                                 start (\ console read_line [])
                                 end (\ console read_line [])]
                                (in (and (text\= /.start start)
@@ -207,7 +207,7 @@
                     [verdict (do ///action.monad
                                [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                          fs (shell.async (..bad_shell [])) resolution
-                                         (with@ #///.compiler compiler profile))
+                                         (with@ ///.#compiler compiler profile))
                                 start (\ console read_line [])
                                 end (\ console read_line [])]
                                (in (and (text\= /.start start)
@@ -232,12 +232,12 @@
                                                  actual/1 (\ console read_line [])
                                                  actual/2 (\ console read_line [])
                                                  end! (|> (\ console read_line [])
-                                                          (\ ! each (|>> (case> {#try.Failure error}
+                                                          (\ ! each (|>> (case> {try.#Failure error}
                                                                                 true
                                                                                 
-                                                                                {#try.Success _}
+                                                                                {try.#Success _}
                                                                                 false)
-                                                                         #try.Success)))]
+                                                                         {try.#Success})))]
                                                 (in (and (text\= expected/0 actual/0)
                                                          (text\= expected/1 actual/1)
                                                          (text\= expected/2 actual/2)