diff options
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 543900782..986e1f161 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -78,7 +78,7 @@ (console.write_line report console))) (is (Async (Try Any)) <else>)))] - (io.run! (# world/program.default exit +1)))) + (io.run! (at world/program.default exit +1)))) {try.#Success output} (in output)))) @@ -101,18 +101,18 @@ {try.#Success content} (case content {.#Left content} - (# fs write package content) + (at fs write package content) {.#Right content} (do [! (try.with async.monad)] - [_ (# fs make_directory package) + [_ (at fs make_directory package) _ (monad.each ! (function (_ [name content]) - (# fs write (file.rooted fs package name) content)) + (at fs write (file.rooted fs package name) content)) content)] (in []))) {try.#Failure error} - (# async.monad in {try.#Failure error}))) + (at async.monad in {try.#Failure error}))) (def: (load_host_dependencies fs host_dependencies) (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary)))) @@ -127,7 +127,7 @@ {.#Item head tail} (do ! - [content (# fs read head)] + [content (at fs read head)] (again tail (dictionary.has head content output))))))) @@ -201,6 +201,6 @@ ... (do [! async.monad] ... [console (|> console.default ... async.future - ... (# ! each (|>> try.trusted console.async)))] + ... (at ! each (|>> try.trusted console.async)))] ... (interpreter.run! (try.with async.monad) console platform interpretation generation_bundle))) )))) |