Changed the syntax of do/be's (co)monad bindings.

7 files changed, 10 insertions, 10 deletions

diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux
index 09312a7e2..d2c4703d3 100644
--- a/stdlib/source/test/lux/world/file.lux
+++ b/stdlib/source/test/lux/world/file.lux
@@ -18,7 +18,7 @@
 (def: .public test
   Test
   (<| (_.covering /._)
-      (do {! random.monad}
+      (do [! random.monad]
         [/ (random.ascii/upper 1)]
         ($_ _.and
             (_.for [/.mock]
diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux
index 00406139e..52fa06325 100644
--- a/stdlib/source/test/lux/world/file/watch.lux
+++ b/stdlib/source/test/lux/world/file/watch.lux
@@ -67,7 +67,7 @@
 
 (def: exception
   Test
-  (do {! random.monad}
+  (do [! random.monad]
     [directory (random.ascii/alpha 5)
      .let [[fs watcher] (/.mock "/")]]
     ($_ _.and
@@ -91,7 +91,7 @@
 
 (def: (no_events_prior_to_creation! fs watcher directory)
   (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit)))
-  (do {! (try.with async.monad)}
+  (do [! (try.with async.monad)]
     [_ (\ fs make_directory directory)
      _ (\ watcher start /.all directory)]
     (|> (\ watcher poll [])
@@ -157,14 +157,14 @@
           ..concern\\test
           ..exception
 
-          (do {! random.monad}
+          (do [! random.monad]
             [directory (random.ascii/alpha 5)
              .let [/ "/"
                    [fs watcher] (/.mock /)]
              expected_path (\ ! each (|>> (format directory /))
                               (random.ascii/alpha 5))
              data ($binary.random 10)]
-            (in (do {! async.monad}
+            (in (do [! async.monad]
                   [verdict (do (try.with !)
                              [no_events_prior_to_creation!
                               (..no_events_prior_to_creation! fs watcher directory)
diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux
index 38ff5feb5..9abbbb7cd 100644
--- a/stdlib/source/test/lux/world/input/keyboard.lux
+++ b/stdlib/source/test/lux/world/input/keyboard.lux
@@ -139,7 +139,7 @@
   (def: .public random
     (Random /.Key)
     (let [count (list.size ..listing)]
-      (do {! random.monad}
+      (do [! random.monad]
         [choice (\ ! each (n.% count) random.nat)]
         (in (maybe.trusted (list.item choice ..listing))))))
 
diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux
index 851f95002..b2999b74d 100644
--- a/stdlib/source/test/lux/world/net/http/client.lux
+++ b/stdlib/source/test/lux/world/net/http/client.lux
@@ -31,7 +31,7 @@
   Test
   (<| (_.covering /._)
       (_.for [/.Client])
-      (do {! random.monad}
+      (do [! random.monad]
         [on_post random.nat
          on_get random.nat
          on_put random.nat
diff --git a/stdlib/source/test/lux/world/output/video/resolution.lux b/stdlib/source/test/lux/world/output/video/resolution.lux
index 6367ff652..59a46f103 100644
--- a/stdlib/source/test/lux/world/output/video/resolution.lux
+++ b/stdlib/source/test/lux/world/output/video/resolution.lux
@@ -46,7 +46,7 @@
   (def: .public random
     (Random /.Resolution)
     (let [count (list.size ..listing)]
-      (do {! random.monad}
+      (do [! random.monad]
         [choice (\ ! each (n.% count) random.nat)]
         (in (maybe.trusted (list.item choice ..listing))))))
 
diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux
index 1160ab879..4b1c4ba22 100644
--- a/stdlib/source/test/lux/world/program.lux
+++ b/stdlib/source/test/lux/world/program.lux
@@ -41,7 +41,7 @@
 (def: .public test
   Test
   (<| (_.covering /._)
-      (do {! random.monad}
+      (do [! random.monad]
         [env_size (\ ! each (|>> (n.% 10) ++) random.nat)
          environment (..environment env_size)
          home ..path
diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux
index a57d8d5e8..250f7f9b2 100644
--- a/stdlib/source/test/lux/world/shell.lux
+++ b/stdlib/source/test/lux/world/shell.lux
@@ -96,7 +96,7 @@
              destruction (random.ascii/alpha 5)
              exit random.int
              .let [shell (/.async (..io_shell command oops input destruction exit))]]
-            (in (do {! async.monad}
+            (in (do [! async.monad]
                   [verdict (do (try.with !)
                              [process (\ shell execute [environment.empty "~" command (list)])
                               read (\ process read [])