From 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 05:42:36 -0400
Subject: De-sigil-ification: $

---
 stdlib/source/test/aedifex/command/auto.lux | 64 ++++++++++++++---------------
 1 file changed, 32 insertions(+), 32 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index e8d5ca1ac..1cad922f7 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -90,36 +90,36 @@
          expected_runs (# ! each (|>> (n.% 10) (n.max 2)) random.nat)
          dummy_path (# ! each (|>> (format source /)) (random.ascii/alpha 5))
          [compiler resolution] $build.resolution]
-        ($_ _.and
-            (_.cover [/.delay]
-                     (n.> 0 /.delay))
-            (in (do async.monad
-                  [verdict (do ///action.monad
-                             [_ (# fs make_directory source)
-                              _ (# fs write dummy_path (binary.empty 0))
-                              .let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
-                              _ (# watcher poll [])]
-                             (do [! async.monad]
-                               [no_dangling_process! (|> profile
-                                                         (has ///.#lux compiler)
-                                                         ((/.do! 1 watcher command)
-                                                          ($version.echo "")
-                                                          (program.async (program.mock environment.empty home working_directory))
-                                                          fs
-                                                          (shell.async ($build.good_shell []))
-                                                          resolution)
-                                                         (# ! each (|>> (pipe.case
-                                                                          {try.#Failure error}
-                                                                          (same? end_signal error)
+        (all _.and
+             (_.cover [/.delay]
+                      (n.> 0 /.delay))
+             (in (do async.monad
+                   [verdict (do ///action.monad
+                              [_ (# fs make_directory source)
+                               _ (# fs write dummy_path (binary.empty 0))
+                               .let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
+                               _ (# watcher poll [])]
+                              (do [! async.monad]
+                                [no_dangling_process! (|> profile
+                                                          (has ///.#lux compiler)
+                                                          ((/.do! 1 watcher command)
+                                                           ($version.echo "")
+                                                           (program.async (program.mock environment.empty home working_directory))
+                                                           fs
+                                                           (shell.async ($build.good_shell []))
+                                                           resolution)
+                                                          (# ! each (|>> (pipe.case
+                                                                           {try.#Failure error}
+                                                                           (same? end_signal error)
 
-                                                                          {try.#Success _}
-                                                                          false))))
-                                correct_number_of_runs! (|> @runs
-                                                            atom.read!
-                                                            async.future
-                                                            (# ! each (n.= expected_runs)))]
-                               (in {try.#Success (and correct_number_of_runs!
-                                                      no_dangling_process!)})))]
-                  (_.cover' [/.do!]
-                            (try.else false verdict))))
-            ))))
+                                                                           {try.#Success _}
+                                                                           false))))
+                                 correct_number_of_runs! (|> @runs
+                                                             atom.read!
+                                                             async.future
+                                                             (# ! each (n.= expected_runs)))]
+                                (in {try.#Success (and correct_number_of_runs!
+                                                       no_dangling_process!)})))]
+                   (_.cover' [/.do!]
+                             (try.else false verdict))))
+             ))))
-- 
cgit v1.2.3