diff options
| author | Eduardo Julian | 2021-09-05 22:52:26 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-05 22:52:26 -0400 |
| commit | 132ffdae1add622c8a3c6065d7730a8fe8ea5e78 (patch) | |
| tree | 540310f190007d192b892db2d0a520d17b73ad48 /stdlib/source/program/aedifex/command | |
| parent | 09e2747bf8c6dcdc1d7318f2490f0de37d77b39f (diff) | |
Changed the syntax of do/be's (co)monad bindings.
Diffstat (limited to 'stdlib/source/program/aedifex/command')
| -rw-r--r-- | stdlib/source/program/aedifex/command/auto.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/deploy.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/test.lux | 2 |
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))] |