From f19f246aad0bce5449b89d5b0c7bb2596c9e1e41 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 22 Jan 2023 15:34:35 -0400
Subject: Simplified caching and JVM program JARs.

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

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 86a9c829f..bcb9c7645 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -236,7 +236,7 @@
 (def (cache_tar context fs)
   (-> Context (file.System Async)
       (Action Tar))
-  (loop (again [root (cache.path fs context)])
+  (loop (again [root cache.path])
     (do [! ..monad]
       [files (of fs directory_files root)
        subs (of fs sub_directories root)
@@ -392,7 +392,7 @@
               (when archive,state
                 {try.#Success [archive state]}
                 (do !
-                  [_ (cache/archive.cache! (the platform.#file_system platform) (the cli.#configuration compilation) file_context archive)
+                  [_ (cache/archive.cache! (the platform.#file_system platform) (the cli.#configuration compilation) archive)
                    _ (cache! original_fs file_context platform)
                    host_dependencies (..load_host_dependencies (the platform.#file_system platform)
                                                                (the cli.#host_dependencies compilation))
-- 
cgit v1.2.3