diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 4 |
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)) |