aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux26
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}