diff options
| author | Eduardo Julian | 2020-03-05 00:56:20 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-03-05 00:56:20 -0400 |
| commit | e5153db14981fa7da2c34058bed494a8662496c8 (patch) | |
| tree | b96400f12aaf32475bca276fa3b7af470c60744f /stdlib/source/program/compositor.lux | |
| parent | a6c0acbf9d5730f238292ac8a53196d98fbbda72 (diff) | |
Beginning to cache artifacts.
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index 7bcc07d7c..43e58cf50 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -1,6 +1,7 @@ (.module: [lux #* [type (#+ :share)] + ["@" target (#+ Host)] [abstract [monad (#+ do)]] [control @@ -87,15 +88,16 @@ (:: promise.monad wrap (#try.Failure error))))) (def: #export (compiler target partial-host-extension - expander host-analysis platform generation-bundle host-directive-bundle program extender + expander host-analysis platform host generation-bundle host-directive-bundle program extender service packager,package) (All [<parameters>] - (-> Text + (-> Path Text Expander analysis.Bundle (IO (Platform <parameters>)) + Host (generation.Bundle <parameters>) (directive.Bundle <parameters>) (-> expression artifact) @@ -116,12 +118,12 @@ {(Platform <parameters>) platform} {(Promise (Try (directive.State+ <parameters>))) - (platform.initialize target expander host-analysis platform generation-bundle host-directive-bundle program extender)}) + (platform.initialize target host 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 partial-host-extension expander platform configuration archive.empty state)}) + (platform.compile target partial-host-extension expander platform host configuration archive.empty state)}) _ (save-artifacts! (get@ #platform.&file-system platform) state packager,package) ## _ (cache/io.clean target ...) ] |