From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 stdlib/source/test/aedifex/command/build.lux | 34 ++++++++++++++--------------
 1 file changed, 17 insertions(+), 17 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 1bb77d307..25302fa71 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -142,14 +142,14 @@
       (do [! random.monad]
         [last_read (random.alphabetic 5)
          last_error (random.alphabetic 5)
-         .let [fs (file.mock (# file.default separator))
+         .let [fs (file.mock (at file.default separator))
                shell (shell.async (..good_shell []))]
          program (random.alphabetic 5)
          target (random.alphabetic 5)
          home (random.alphabetic 5)
          working_directory (random.alphabetic 5)
          .let [empty_profile (is Profile
-                                 (# ///.monoid identity))
+                                 (at ///.monoid identity))
                with_target (is (-> Profile Profile)
                                (has ///.#target target))
                with_program (is (-> Profile Profile)
@@ -186,8 +186,8 @@
                                 [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                           fs shell resolution
                                           (has ///.#lux compiler profile))
-                                 start (# console read_line [])
-                                 end (# console read_line [])]
+                                 start (at console read_line [])
+                                 end (at console read_line [])]
                                 (in (and (text#= /.start start)
                                          (text#= /.success end))))]
                      (_.coverage' [/.do!
@@ -208,8 +208,8 @@
                                 [_ (/.do! console (program.async (program.mock environment.empty home working_directory))
                                           fs (shell.async (..bad_shell [])) resolution
                                           (has ///.#lux compiler profile))
-                                 start (# console read_line [])
-                                 end (# console read_line [])]
+                                 start (at console read_line [])
+                                 end (at console read_line [])]
                                 (in (and (text#= /.start start)
                                          (text#= /.failure end))))]
                      (_.coverage' [/.failure]
@@ -228,17 +228,17 @@
                                        [verdict (do ///action.monad
                                                   [process (shell [environment.empty working_directory "" (list "")])
                                                    _ (<log!> console process)
-                                                   actual/0 (# console read_line [])
-                                                   actual/1 (# console read_line [])
-                                                   actual/2 (# console read_line [])
-                                                   end! (|> (# console read_line [])
-                                                            (# ! each (|>> (pipe.case
-                                                                             {try.#Failure error}
-                                                                             true
-                                                                             
-                                                                             {try.#Success _}
-                                                                             false)
-                                                                           {try.#Success})))]
+                                                   actual/0 (at console read_line [])
+                                                   actual/1 (at console read_line [])
+                                                   actual/2 (at console read_line [])
+                                                   end! (|> (at console read_line [])
+                                                            (at ! each (|>> (pipe.case
+                                                                              {try.#Failure error}
+                                                                              true
+                                                                              
+                                                                              {try.#Success _}
+                                                                              false)
+                                                                            {try.#Success})))]
                                                   (in (and (text#= expected/0 actual/0)
                                                            (text#= expected/1 actual/1)
                                                            (text#= expected/2 actual/2)
-- 
cgit v1.2.3