diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/compiler/meta/io/archive.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/meta/io/archive.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux index c5ebc6bad..125360e58 100644 --- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux +++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux @@ -101,7 +101,7 @@ (def: #export (prepare fs static module_id) (-> (file.System Async) Static archive.ID (Async (Try Any))) (do {! async.monad} - [#let [module (..module fs static module_id)] + [.let [module (..module fs static module_id)] module_exists? (\ fs directory? module)] (if module_exists? (in (#try.Success [])) @@ -216,7 +216,7 @@ (Try [(Document .Module) Bundles Output]))) (do {! try.monad} [[definitions bundles] (: (Try [Definitions Bundles Output]) - (loop [input (row.to_list expected) + (loop [input (row.list expected) definitions (: Definitions (dictionary.empty text.hash)) bundles ..empty_bundles @@ -226,12 +226,12 @@ (#.Item [[artifact_id artifact_category] input']) (case (do ! [data (try.of_maybe (dictionary.get (format (%.nat artifact_id) extension) actual)) - #let [context [module_id artifact_id] + .let [context [module_id artifact_id] directive (\ host ingest context data)]] (case artifact_category #artifact.Anonymous (do ! - [#let [output (row.add [artifact_id #.None data] output)] + [.let [output (row.add [artifact_id #.None data] output)] _ (\ host re_learn context #.None directive)] (in [definitions [analysers @@ -260,7 +260,7 @@ (#artifact.Analyser extension) (do ! - [#let [output (row.add [artifact_id #.None data] output)] + [.let [output (row.add [artifact_id #.None data] output)] value (\ host re_load context #.None directive)] (in [definitions [(dictionary.put extension (:as analysis.Handler value) analysers) @@ -271,7 +271,7 @@ (#artifact.Synthesizer extension) (do ! - [#let [output (row.add [artifact_id #.None data] output)] + [.let [output (row.add [artifact_id #.None data] output)] value (\ host re_load context #.None directive)] (in [definitions [analysers @@ -282,7 +282,7 @@ (#artifact.Generator extension) (do ! - [#let [output (row.add [artifact_id #.None data] output)] + [.let [output (row.add [artifact_id #.None data] output)] value (\ host re_load context #.None directive)] (in [definitions [analysers @@ -293,7 +293,7 @@ (#artifact.Directive extension) (do ! - [#let [output (row.add [artifact_id #.None data] output)] + [.let [output (row.add [artifact_id #.None data] output)] value (\ host re_load context #.None directive)] (in [definitions [analysers @@ -304,7 +304,7 @@ (#artifact.Custom name) (do ! - [#let [output (row.add [artifact_id (#.Some name) data] output)] + [.let [output (row.add [artifact_id (#.Some name) data] output)] _ (\ host re_learn context (#.Some name) directive)] (in [definitions [analysers @@ -345,14 +345,14 @@ Bundles])))) (do (try.with async.monad) [actual (cached_artifacts fs static module_id) - #let [expected (|> descriptor (get@ #descriptor.registry) artifact.artifacts)] + .let [expected (|> descriptor (get@ #descriptor.registry) artifact.artifacts)] [document bundles output] (async\in (loaded_document (get@ #static.artifact_extension static) host_environment module_id expected actual document))] (in [[descriptor document output] bundles]))) (def: (purge! fs static [module_name module_id]) (-> (file.System Async) Static [Module archive.ID] (Async (Try Any))) (do {! (try.with async.monad)} - [#let [cache (..module fs static module_id)] + [.let [cache (..module fs static module_id)] _ (|> cache (\ fs directory_files) (\ ! map (monad.map ! (\ fs delete))) @@ -391,7 +391,7 @@ purge (if (|> descriptor (get@ #descriptor.references) - set.to_list + set.list (list.any? purged?)) (dictionary.put module_name module_id purge) purge)))) @@ -429,7 +429,7 @@ (\ try.monad map (dependency.load_order $.key)) (\ try.monad join) async\in) - #let [purge (..full_purge pre_loaded_caches load_order)] + .let [purge (..full_purge pre_loaded_caches load_order)] _ (|> purge dictionary.entries (monad.map ! (..purge! fs static))) |