diff options
Diffstat (limited to 'stdlib/source/lux/tool/compiler/default/platform.lux')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/default/platform.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/lux/tool/compiler/default/platform.lux b/stdlib/source/lux/tool/compiler/default/platform.lux index 72642db8d..cb006d9f7 100644 --- a/stdlib/source/lux/tool/compiler/default/platform.lux +++ b/stdlib/source/lux/tool/compiler/default/platform.lux @@ -30,7 +30,7 @@ ["." file (#+ Path)]]] ["." // #_ ["#." init] - ["/#" // (#+ Output) + ["/#" // ["#." phase] [language [lux @@ -48,7 +48,7 @@ [analysis ["." module]]]]] [meta - ["." archive (#+ Archive) + ["." archive (#+ Output Archive) ["." artifact (#+ Registry)] ["." descriptor (#+ Descriptor Module)] ["." document (#+ Document)]] @@ -87,9 +87,9 @@ (_.and descriptor.writer (document.writer $.writer))) - (def: (cache_module static platform module_id [[descriptor document] output]) + (def: (cache_module static platform module_id [descriptor document output]) (All [<type_vars>] - (-> Static <Platform> archive.ID [[Descriptor (Document Any)] Output] + (-> Static <Platform> archive.ID [Descriptor (Document Any) Output] (Promise (Try Any)))) (let [system (get@ #&file_system platform) write_artifact! (: (-> [Text Binary] (Action Any)) @@ -142,17 +142,17 @@ (All [<type_vars>] (-> Archive <Platform> (///directive.Operation <type_vars> - [Archive [[Descriptor (Document .Module)] Output]]))) + [Archive [Descriptor (Document .Module) Output]]))) (do ///phase.monad [[registry payload] (///directive.lift_generation (..compile_runtime! platform)) - #let [descriptor,document [(..runtime_descriptor registry) ..runtime_document]] + #let [[descriptor document] [(..runtime_descriptor registry) ..runtime_document]] archive (///phase.lift (if (archive.reserved? archive archive.runtime_module) - (archive.add archive.runtime_module descriptor,document archive) + (archive.add archive.runtime_module [descriptor document payload] archive) (do try.monad [[_ archive] (archive.reserve archive.runtime_module archive)] - (archive.add archive.runtime_module descriptor,document archive))))] - (wrap [archive [descriptor,document payload]]))) + (archive.add archive.runtime_module [descriptor document payload] archive))))] + (wrap [archive [descriptor document payload]]))) (def: (initialize_state extender [analysers @@ -436,7 +436,7 @@ (do {! try.monad} [modules (monad.map ! (function (_ module) (do ! - [[descriptor document] (archive.find module archive) + [[descriptor document output] (archive.find module archive) lux_module (document.read $.key document)] (wrap [module lux_module]))) (archive.archived archive)) @@ -528,12 +528,12 @@ (#.Left more) (continue! [archive state] more all_dependencies) - (#.Right [[descriptor document] output]) + (#.Right [descriptor document output]) (do ! [#let [_ (debug.log! (..module_compilation_log state)) descriptor (set@ #descriptor.references (set.from_list text.hash all_dependencies) descriptor)] - _ (..cache_module static platform module_id [[descriptor document] output])] - (case (archive.add module [descriptor document] archive) + _ (..cache_module static platform module_id [descriptor document output])] + (case (archive.add module [descriptor document output] archive) (#try.Success archive) (wrap [archive (..with_reset_log state)]) |