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/compositor.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 90e5534f9..0fbfeb6fb 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -95,7 +95,7 @@
 
 (def: (load_host_dependencies fs host_dependencies)
   (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary))))
-  (do {! (try.with async.monad)}
+  (do [! (try.with async.monad)]
     []
     (loop [pending host_dependencies
            output (: (Dictionary file.Path Binary)
@@ -128,7 +128,7 @@
           Service
           [Packager file.Path]
           (Async Any)))
-    (do {! async.monad}
+    (do [! async.monad]
       [platform (async.future platform)]
       (case service
         (#/cli.Compilation compilation)
@@ -176,7 +176,7 @@
         ... TODO: Fix the interpreter...
         (undefined)
         ... (<| (or_crash! "Interpretation failed:")
-        ...     (do {! async.monad}
+        ...     (do [! async.monad]
         ...       [console (|> console.default
         ...                    async.future
         ...                    (\ ! each (|>> try.trusted console.async)))]
-- 
cgit v1.2.3