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

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

diff --git a/stdlib/source/program/aedifex/dependency/deployment.lux b/stdlib/source/program/aedifex/dependency/deployment.lux
index 5abc9979a..5227a8b95 100644
--- a/stdlib/source/program/aedifex/dependency/deployment.lux
+++ b/stdlib/source/program/aedifex/dependency/deployment.lux
@@ -50,7 +50,7 @@
                              (\ codec encoded)
                              (\ utf8.codec encoded)
                              (\ repository upload (format artifact extension)))))]
-    (do {! (try.with async.monad)}
+    (do [! (try.with async.monad)]
       [_ (\ repository upload artifact data)]
       (case status
         #///dependency/status.Unverified
@@ -117,7 +117,7 @@
 
 (def: .public (one repository [artifact type] package)
   (-> (Repository Async) Dependency Package (Async (Try Artifact)))
-  (do {! async.monad}
+  (do [! async.monad]
     [now (async.future instant.now)
      .let [version_template (value@ #///artifact.version artifact)]]
     (do (try.with !)
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index 99e8b9adf..b8aead0aa 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -84,7 +84,7 @@
     [?actual (\ repository download (///repository/remote.uri version_template artifact extension))]
     (case ?actual
       (#try.Success actual)
-      (in (do {! try.monad}
+      (in (do [! try.monad]
             [output (\ ! each (for {@.old (|>> (:as java/lang/String)
                                                java/lang/String::trim
                                                (:as Text))
@@ -186,7 +186,7 @@
         (\ async.monad in))
 
     (#.Item repository alternatives)
-    (do {! async.monad}
+    (do [! async.monad]
       [_ (..announce_fetching console repository (value@ #//.artifact dependency))
        outcome (..one repository dependency)]
       (case outcome
@@ -223,7 +223,7 @@
                   failures
                   tail
                   resolution)
-        _ (do {! async.monad}
+        _ (do [! async.monad]
             [?package (case (dictionary.value head resolution)
                         (#.Some package)
                         (in (#try.Success package))
-- 
cgit v1.2.3