From 132ffdae1add622c8a3c6065d7730a8fe8ea5e78 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 5 Sep 2021 22:52:26 -0400
Subject: Changed the syntax of do/be's (co)monad bindings.

---
 stdlib/source/test/aedifex/command/auto.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 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 894e647be..71608e83d 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -52,7 +52,7 @@
                  (atom.atom 0))]
     [@runs
      (function (_ console program fs shell resolution profile)
-       (do {! async.monad}
+       (do [! async.monad]
          [[_ actual_runs] (async.future (atom.update! ++ @runs))]
          (if (n.= expected_runs actual_runs)
            (in (#try.Failure end_signal))
@@ -66,7 +66,7 @@
 (def: .public test
   Test
   (<| (_.covering /._)
-      (do {! random.monad}
+      (do [! random.monad]
         [end_signal (random.ascii/alpha 5)
          .let [/ (\ file.default separator)
                [fs watcher] (watch.mock /)]
@@ -101,7 +101,7 @@
                               _ (\ fs write (binary.empty 0) dummy_path)
                               .let [[@runs command] (..command expected_runs end_signal fs dummy_path)]
                               _ (\ watcher poll [])]
-                             (do {! async.monad}
+                             (do [! async.monad]
                                [no_dangling_process! (|> profile
                                                          (with@ #///.compiler compiler)
                                                          ((/.do! 1 watcher command)
-- 
cgit v1.2.3