diff options
| author | Eduardo Julian | 2022-04-07 00:59:30 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-04-07 00:59:30 -0400 |
| commit | 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (patch) | |
| tree | 11602f21abb3256019847647e7bbeba8a91418ee /stdlib/source/program | |
| parent | b0d725f24335e82eefc77175efc0a5282951316e (diff) | |
More efficient TAR handling.
Diffstat (limited to 'stdlib/source/program')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 0d59c7dd5..e803ead3f 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -76,7 +76,8 @@ {.#Some console} (console.write_line report console))) - <else>))] + (is (Async (Try Any)) + <else>)))] (io.run! (# world/program.default exit +1)))) {try.#Success output} @@ -100,13 +101,13 @@ {try.#Success content} (case content {.#Left content} - (# fs write content package) + (# fs write package content) {.#Right content} (do [! (try.with async.monad)] [_ (# fs make_directory package) _ (monad.each ! (function (_ [name content]) - (# fs write content (file.rooted fs package name))) + (# fs write (file.rooted fs package name) content)) content)] (in []))) |