More efficient TAR handling.

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