diff options
Diffstat (limited to 'stdlib/source/library/lux/meta/compiler/meta/io/archive.lux')
-rw-r--r-- | stdlib/source/library/lux/meta/compiler/meta/io/archive.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/meta/compiler/meta/io/archive.lux b/stdlib/source/library/lux/meta/compiler/meta/io/archive.lux index fd19de547..aff2a0de0 100644 --- a/stdlib/source/library/lux/meta/compiler/meta/io/archive.lux +++ b/stdlib/source/library/lux/meta/compiler/meta/io/archive.lux @@ -173,7 +173,7 @@ (Async (Try (archive.Entry .Module))))) (do (try.with async.monad) [actual (is (Async (Try (Dictionary Text Binary))) - (cache/module.artifacts async.monad fs context @module)) + (cache/module.artifacts async.monad fs @module)) .let [expected (registry.artifacts (the archive.#registry entry))] [document output] (|> (the [archive.#module module.#document] entry) (loaded_document (the context.#artifact_extension context) host_environment @module expected actual) @@ -207,7 +207,7 @@ (with_expansions [<cache> (these module_name @module module registry)] (do [! (try.with async.monad)] [data (is (Async (Try Binary)) - (cache/module.cache fs context @module)) + (cache/module.cache fs @module)) [module registry] (async#in (<binary>.result (..cache_parser customs) data))] (if (text#= descriptor.runtime module_name) (in [true <cache>]) @@ -271,7 +271,7 @@ .let [purge (cache/purge.purge pre_loaded_caches load_order)] _ (|> purge dictionary.entries - (monad.each ! (|>> product.right (cache/purge.purge! fs context)))) + (monad.each ! (|>> product.right (cache/purge.purge! fs)))) loaded_caches (..loaded_caches host_environment fs context purge load_order)] (async#in (do [! try.monad] @@ -288,7 +288,7 @@ (-> (List Custom) Configuration (translation.Host expression declaration) (file.System Async) Context Import (List //.Context) (Async (Try [Archive .Lux])))) (do async.monad - [binary (of fs read (cache/archive.descriptor fs context))] + [binary (of fs read (cache/archive.descriptor fs))] (when binary {try.#Success binary} (do (try.with async.monad) |