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/repository/local.lux  | 2 +-
 stdlib/source/program/aedifex/repository/remote.lux | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index d10296714..4a2837672 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -47,7 +47,7 @@
          (\ fs read)))
 
   (def: (upload uri content)
-    (do {! async.monad}
+    (do [! async.monad]
       [.let [absolute_path (..absolute_path program (\ fs separator) uri)]
        ? (\ fs file? absolute_path)
        _ (if ?
diff --git a/stdlib/source/program/aedifex/repository/remote.lux b/stdlib/source/program/aedifex/repository/remote.lux
index 00ac66517..ea8952bef 100644
--- a/stdlib/source/program/aedifex/repository/remote.lux
+++ b/stdlib/source/program/aedifex/repository/remote.lux
@@ -60,7 +60,7 @@
   (def: description
     address)
   (def: (download uri)
-    (do {! (try.with io.monad)}
+    (do [! (try.with io.monad)]
       [[status message] (: (IO (Try (@http.Response IO)))
                            (http.get (format address uri)
                                      (http.headers ..base_headers)
-- 
cgit v1.2.3