diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/library/lux/tool/compiler/default/platform.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/default/platform.lux b/stdlib/source/library/lux/tool/compiler/default/platform.lux index 0e6a0f2bc..4937ec9c1 100644 --- a/stdlib/source/library/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/library/lux/tool/compiler/default/platform.lux @@ -76,7 +76,7 @@ <Operation> (these ///generation.Operation <type_vars>)] (type: .public (Platform <type_vars>) (Record - [#&file_system (file.System Async) + [#file_system (file.System Async) #host (///generation.Host expression directive) #phase (///generation.Phase <type_vars>) #runtime (<Operation> [Registry Output]) @@ -112,7 +112,7 @@ (All (_ <type_vars> document) (-> context.Context <Platform> module.ID (Key document) (Writer document) (archive.Entry document) (Async (Try Any)))) - (let [system (the #&file_system platform) + (let [system (the #file_system platform) write_artifact! (is (-> [artifact.ID (Maybe Text) Binary] (Action Any)) (function (_ [artifact_id custom content]) (is (Async (Try Any)) @@ -273,8 +273,8 @@ (the #phase platform) generation_bundle)] _ (is (Async (Try Any)) - (cache.enable! async.monad (the #&file_system platform) context)) - [archive analysis_state bundles] (ioW.thaw (list) compilation_configuration (the #host platform) (the #&file_system platform) context import compilation_sources) + (cache.enable! async.monad (the #file_system platform) context)) + [archive analysis_state bundles] (ioW.thaw (list) compilation_configuration (the #host platform) (the #file_system platform) context import compilation_sources) .let [with_missing_extensions (is (All (_ <type_vars>) (-> <Platform> (Program expression directive) <State+> @@ -744,7 +744,7 @@ {try.#Failure error} (do ! - [_ (cache/archive.cache! (the #&file_system platform) context archive)] + [_ (cache/archive.cache! (the #file_system platform) context archive)] (async#in {try.#Failure error}))))))) (def: (lux_compiler import context platform compilation_sources compiler compilation) @@ -795,7 +795,7 @@ {try.#Failure error} (do ! - [_ (cache/archive.cache! (the #&file_system platform) context archive)] + [_ (cache/archive.cache! (the #file_system platform) context archive)] (async#in {try.#Failure error}))))))) (for @.old (these (def: Fake_State @@ -817,7 +817,7 @@ Lux_Compiler)) (function (_ all_customs importer import! @module [archive lux_state] module) (do [! (try.with async.monad)] - [input (io.read (the #&file_system platform) + [input (io.read (the #file_system platform) importer import compilation_sources |