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/compositor | |
| parent | 09e2747bf8c6dcdc1d7318f2490f0de37d77b39f (diff) | |
Changed the syntax of do/be's (co)monad bindings.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/compositor/export.lux | 2 |
2 files changed, 4 insertions, 4 deletions
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)))] diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux index 49169526d..e2d89879a 100644 --- a/stdlib/source/program/compositor/export.lux +++ b/stdlib/source/program/compositor/export.lux @@ -64,7 +64,7 @@ (def: .public (export fs [sources target]) (-> (file.System Async) Export (Async (Try Any))) - (do {! (try.with async.monad)} + (do [! (try.with async.monad)] [tar (\ ! each (binary.result tar.writer) (..library fs sources))] (|> ..file |