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/dependency/deployment.lux | 6 +++---
 stdlib/source/test/aedifex/dependency/resolution.lux | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency')

diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index e9bcc67a4..8dfa5a853 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -146,11 +146,11 @@
 (def: .public test
   Test
   (<| (_.covering /._)
-      (do {! random.monad}
+      (do [! random.monad]
         [address (\ ! each (text.suffix uri.separator)
                     (random.ascii/upper 10))]
         ($_ _.and
-            (do {! random.monad}
+            (do [! random.monad]
               [[dependency expected_artifact package] ..bundle
                .let [cache (: Cache
                               (atom.atom (dictionary.empty text.hash)))
@@ -163,7 +163,7 @@
                               (|> ?outcome
                                   (try\each (verify_one 1 address package cache expected_artifact))
                                   (try.else false))))))
-            (do {! random.monad}
+            (do [! random.monad]
               [.let [hash (: (Hash [Dependency Artifact Package])
                              (\ hash.functor each (|>> product.right product.left product.left)
                                 text.hash))]
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 79e0bde5b..7297b99ee 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -50,7 +50,7 @@
 
 (def: random
   (Random /.Resolution)
-  (do {! random.monad}
+  (do [! random.monad]
     [artifact $///artifact.random
      [_ package] $///package.random]
     (in (dictionary.has [#///dependency.artifact artifact
@@ -246,7 +246,7 @@
 
 (def: one
   Test
-  (do {! random.monad}
+  (do [! random.monad]
     [expected_artifact $///artifact.random
      [_ expected_package] $///package.random
      [_ dummy_package] (random.only (|>> product.right
@@ -291,7 +291,7 @@
 
 (def: any
   Test
-  (do {! random.monad}
+  (do [! random.monad]
     [expected_artifact $///artifact.random
      [_ expected_package] $///package.random
      [_ dummy_package] (random.only (|>> product.right
@@ -399,7 +399,7 @@
 
 (def: all
   Test
-  (do {! random.monad}
+  (do [! random.monad]
     [[dependee_artifact depender_artifact ignored_artifact] ..artifacts
 
      [[dependee depender ignored]
-- 
cgit v1.2.3