diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 26 |
1 files changed, 12 insertions, 14 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 4287a901f..5e71b0741 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -160,20 +160,18 @@ [.let [[compilation_host_dependencies compilation_libraries compilation_compilers compilation_sources compilation_target compilation_module compilation_configuration] compilation] import (import.import (the platform.#file_system platform) compilation_libraries) [state archive phase_wrapper] (sharing [<parameters>] - (Platform <parameters>) - platform - - (Async (Try [(directive.State+ <parameters>) - Archive - phase.Wrapper])) - (as_expected (platform.initialize file_context compilation_module expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender - import compilation_sources compilation_configuration))) + (is (Platform <parameters>) + platform) + (is (Async (Try [(directive.State+ <parameters>) + Archive + phase.Wrapper])) + (as_expected (platform.initialize file_context compilation_module expander host_analysis platform generation_bundle host_directive_bundle program anchorT,expressionT,directiveT extender + import compilation_sources compilation_configuration)))) [archive state] (sharing [<parameters>] - (Platform <parameters>) - platform - - (Async (Try [Archive (directive.State+ <parameters>)])) - (as_expected (platform.compile lux_compiler phase_wrapper import file_context expander platform compilation [archive state]))) + (is (Platform <parameters>) + platform) + (is (Async (Try [Archive (directive.State+ <parameters>)])) + (as_expected (platform.compile lux_compiler phase_wrapper import file_context expander platform compilation [archive state])))) _ (cache.cache! (the platform.#file_system platform) file_context archive) host_dependencies (..load_host_dependencies (the platform.#file_system platform) compilation_host_dependencies) _ (..package! (for @.old (file.async file.default) @@ -191,7 +189,7 @@ (<| (or_crash! "Export failed:") (do (try.with async.monad) [_ (export.export (the platform.#file_system platform) - export)] + export)] (in (debug.log! "Export complete!")))) {cli.#Interpretation interpretation} |