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/command/auto.lux   | 4 ++--
 stdlib/source/program/aedifex/command/clean.lux  | 2 +-
 stdlib/source/program/aedifex/command/deploy.lux | 2 +-
 stdlib/source/program/aedifex/command/test.lux   | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 4e2fd064c..5e3b425fe 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -51,13 +51,13 @@
   (function (_ console program fs shell resolution)
     (function (_ profile)
       (with_expansions [<call> ((command console program fs shell resolution) profile)]
-        (do {! async.monad}
+        (do [! async.monad]
           [targets (|> profile
                        (value@ #///.sources)
                        set.list
                        (monad.each ! (..targets fs))
                        (\ ! each list.together))]
-          (do {! ///action.monad}
+          (do [! ///action.monad]
             [_ (monad.each ! (\ watcher start watch.modification) targets)
              _ <call>]
             (loop [_ []]
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index c5599e15e..0d8a62512 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -32,7 +32,7 @@
 
 (def: .public (do! console fs profile)
   (-> (Console Async) (file.System Async) (Command Any))
-  (do {! async.monad}
+  (do [! async.monad]
     [.let [target (value@ #///.target profile)]
      ? (\ fs directory? target)
      _ (let [! ///action.monad]
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index 787496543..49837055c 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -58,7 +58,7 @@
 
 (def: .public (do! console repository fs artifact profile)
   (-> (Console Async) (Repository Async) (file.System Async) Artifact (Command Any))
-  (do {! ///action.monad}
+  (do [! ///action.monad]
     [library (|> profile
                  (value@ #/.sources)
                  set.list
diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux
index 822cc874b..8c18e45be 100644
--- a/stdlib/source/program/aedifex/command/test.lux
+++ b/stdlib/source/program/aedifex/command/test.lux
@@ -33,7 +33,7 @@
   (do async.monad
     [environment (program.environment async.monad program)
      .let [working_directory (\ program directory)]]
-    (do {! ///action.monad}
+    (do [! ///action.monad]
       [.let [home (\ program home)]
        [build_exit compiler program] (//build.do! console program fs shell resolution
                                                   (with@ #///.program (value@ #///.test profile) profile))]
-- 
cgit v1.2.3