From 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 7 Apr 2022 00:59:30 -0400
Subject: More efficient TAR handling.

---
 stdlib/source/program/compositor.lux | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program')

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 [])))
     
-- 
cgit v1.2.3