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/clean.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 7d7e613fe..c59b75719 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -42,7 +42,7 @@
 
 (def: (files prefix)
   (-> Path (Random (List [Path Binary])))
-  (do {! random.monad}
+  (do [! random.monad]
     [count (\ ! each (n.% 10) random.nat)
      names (random.set text.hash count ..node_name)
      contents (random.list count ($binary.random 100))]
@@ -55,7 +55,7 @@
 
 (def: (create_directory! fs path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Any)))
-  (do {! (try.with async.monad)}
+  (do [! (try.with async.monad)]
     [_ (: (Async (Try Any))
           (file.make_directories async.monad fs path))
      _ (monad.each ! (..create_file! fs) files)]
@@ -71,7 +71,7 @@
 
 (def: (assets_exist? fs directory_path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit)))
-  (do {! (try.with async.monad)}
+  (do [! (try.with async.monad)]
     [directory_exists? (..directory_exists? fs directory_path)
      files_exist? (: (Action (List Bit))
                      (|> files
@@ -83,7 +83,7 @@
 (def: .public test
   Test
   (<| (_.covering /._)
-      (do {! random.monad}
+      (do [! random.monad]
         [context ..node_name
          target ..node_name
          sub ..node_name
@@ -97,7 +97,7 @@
          dummy @profile.random]
         (in (do async.monad
               [.let [console (@version.echo "")]
-               verdict (do {! (try.with async.monad)}
+               verdict (do [! (try.with async.monad)]
                          [_ (..create_directory! fs target_path direct_files)
                           _ (..create_directory! fs sub_path sub_files)
                           context_exists!/pre (..directory_exists? fs context)
-- 
cgit v1.2.3