aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux4
1 files changed, 2 insertions, 2 deletions
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))