diff options
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 []))) |