diff options
| author | Eduardo Julian | 2020-04-21 02:53:23 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-04-21 02:53:23 -0400 |
| commit | d636f97db32f0ca3aa1705c5290afc07314adc53 (patch) | |
| tree | 28669a028d9c27fe53ce433c76d40677b42b144a /stdlib/source/program/compositor | |
| parent | f6a2fe158979230dcf2d271981ff34be39c7bffc (diff) | |
Now caching the reservations from the archive.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 22 |
1 files changed, 13 insertions, 9 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 5fb10d4ba..3e0820c10 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -42,8 +42,10 @@ [phase [extension (#+ Extender)]]]] [meta - ["." archive (#+ Archive) - [descriptor (#+ Module)]]]] + [archive (#+ Archive) + [descriptor (#+ Module)]] + [io + ["ioW" archive]]]] ## ["." interpreter] ]] ["." / #_ @@ -118,17 +120,19 @@ (#/cli.Compilation configuration) (<| (or-crash! "Compilation failed:") (do (try.with promise.monad) - [[state runtime-buffer] (:share [<parameters>] - {(Platform <parameters>) - platform} - {(Promise (Try [(directive.State+ <parameters>) - (Buffer artifact)])) - (platform.initialize target host (get@ #/cli.module configuration) expander host-analysis platform generation-bundle host-directive-bundle program extender)}) + [[state archive runtime-buffer] (:share [<parameters>] + {(Platform <parameters>) + platform} + {(Promise (Try [(directive.State+ <parameters>) + Archive + (Buffer artifact)])) + (platform.initialize target host (get@ #/cli.module configuration) expander host-analysis platform generation-bundle host-directive-bundle program extender)}) [archive state] (:share [<parameters>] {(Platform <parameters>) platform} {(Promise (Try [Archive (directive.State+ <parameters>)])) - (platform.compile target partial-host-extension expander platform host configuration archive.empty extension state)}) + (platform.compile target partial-host-extension expander platform host configuration archive extension state)}) + _ (ioW.freeze (get@ #platform.&file-system platform) host target archive) ## _ (save-artifacts! (get@ #platform.&file-system platform) state packager,package) ## _ (cache/io.clean target ...) ] |