diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index c835643dd..082ad0db9 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -94,7 +94,7 @@ (in output))) (def: (package! fs host_dependencies [packager package] archive context) - (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Archive unit.ID (Async (Try Any))) + (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Archive (Maybe unit.ID) (Async (Try Any))) (case (packager host_dependencies archive context) {try.#Success content} (case content @@ -173,7 +173,6 @@ (Async (Try [Archive (directive.State+ <parameters>)])) (:expected (platform.compile lux_compiler phase_wrapper import file_context expander platform compilation [archive state]))) _ (cache.cache! (value@ platform.#&file_system platform) file_context archive) - program_context (async#in ($/program.context archive)) host_dependencies (..load_host_dependencies (value@ platform.#&file_system platform) compilation_host_dependencies) _ (..package! (for [@.old (file.async file.default) @.jvm (file.async file.default) @@ -183,7 +182,7 @@ host_dependencies packager,package archive - program_context)] + (try.maybe ($/program.context archive)))] (in (debug.log! "Compilation complete!")))) {cli.#Export export} |