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/install.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 76f8cf768..3fe787e35 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -63,7 +63,7 @@
 (def: .public test
   Test
   (<| (_.covering /._)
-      (do {! random.monad}
+      (do [! random.monad]
         [identity $artifact.random
          sample (\ ! each (with@ #///.identity (#.Some identity))
                    $profile.random)
@@ -71,14 +71,14 @@
          working_directory (random.ascii/alpha 5)
          .let [/ (\ file.default separator)]]
         ($_ _.and
-            (in (do {! async.monad}
+            (in (do [! async.monad]
                   [.let [fs (file.mock /)
                          program (program.async (program.mock environment.empty home working_directory))
 
                          artifact_path (///local.uri (value@ #///artifact.version identity) identity)
                          library_path (format artifact_path ///artifact/extension.lux_library)
                          pom_path (format artifact_path ///artifact/extension.pom)]
-                   verdict (do {! ///action.monad}
+                   verdict (do [! ///action.monad]
                              [succeeded! (\ ! each (text\= /.success)
                                             (..execute! program fs sample))
                               library_exists! (|> library_path
@@ -94,7 +94,7 @@
                                       pom_exists!)))]
                   (_.cover' [/.do! /.success]
                             (try.else false verdict))))
-            (in (do {! async.monad}
+            (in (do [! async.monad]
                   [.let [fs (file.mock /)
                          program (program.async (program.mock environment.empty home working_directory))]
                    logging (..execute! program fs (with@ #///.identity #.None sample))]
-- 
cgit v1.2.3