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 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency/deployment.lux')

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))]
-- 
cgit v1.2.3