aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/command
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex/command')
-rw-r--r--stdlib/source/program/aedifex/command/auto.lux4
-rw-r--r--stdlib/source/program/aedifex/command/clean.lux2
-rw-r--r--stdlib/source/program/aedifex/command/deploy.lux2
-rw-r--r--stdlib/source/program/aedifex/command/test.lux2
4 files changed, 5 insertions, 5 deletions
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))]