diff options
| author | Eduardo Julian | 2020-06-29 00:11:01 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-06-29 00:11:01 -0400 |
| commit | 5d2512af61ac17bca25a4790ea01c24f7d2415da (patch) | |
| tree | d55c001f8163f53f887a4dcf3a25141ca06acd00 /stdlib/source/program | |
| parent | b1606a5efcba32abe722759dbfca02586ff2179a (diff) | |
Added the missing cache invalidation to the new compiler.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index dc8be4f83..695d8a9d9 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -55,7 +55,8 @@ ["." / #_ ["#." cli (#+ Service)] ["#." static (#+ Static)] - ["#." export]]) + ["#." export] + ["#." import]]) (def: (or-crash! failure-description action) (All [a] @@ -117,17 +118,19 @@ (<| (or-crash! "Compilation failed:") (do (try.with promise.monad) [#let [[compilation-sources compilation-libraries compilation-target compilation-module] compilation] + import (/import.import (get@ #platform.&file-system platform) compilation-libraries) [state archive] (:share [<parameters>] {(Platform <parameters>) platform} {(Promise (Try [(directive.State+ <parameters>) Archive])) - (:assume (platform.initialize static compilation-module expander host-analysis platform generation-bundle host-directive-bundle program extender))}) + (:assume (platform.initialize static compilation-module expander host-analysis platform generation-bundle host-directive-bundle program extender + import compilation-sources))}) [archive state] (:share [<parameters>] {(Platform <parameters>) platform} {(Promise (Try [Archive (directive.State+ <parameters>)])) - (:assume (platform.compile compilation-libraries static expander platform compilation [archive state]))}) + (:assume (platform.compile import static expander platform compilation [archive state]))}) _ (ioW.freeze (get@ #platform.&file-system platform) static archive) program-context (promise@wrap ($/program.context archive)) _ (promise.future (..package! io.monad file.system packager,package static archive program-context))] |