aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor.lux
diff options
context:
space:
mode:
authorEduardo Julian2020-04-19 00:25:35 -0400
committerEduardo Julian2020-04-19 00:25:35 -0400
commita5e87f66c4588ac23201d00cc55a748b6088eb96 (patch)
treef8f9795a7b094c52e9aba8bb58fec4d536d24ceb /stdlib/source/program/compositor.lux
parent4955cfe6f248a039e95b404f26abfae04204740f (diff)
Fixed artifact file-name generation and archive module naming in caching.
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux4
1 files changed, 3 insertions, 1 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 371dbdec7..5fb10d4ba 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -92,6 +92,7 @@
(def: #export (compiler target partial-host-extension
expander host-analysis platform host generation-bundle host-directive-bundle program extender
service
+ extension
packager,package)
(All [<parameters>]
(-> Path
@@ -105,6 +106,7 @@
(-> expression artifact)
Extender
Service
+ Text
[(-> (Row [Module (generation.Buffer artifact)]) Binary) Path]
(Promise Any)))
(do promise.monad
@@ -126,7 +128,7 @@
{(Platform <parameters>)
platform}
{(Promise (Try [Archive (directive.State+ <parameters>)]))
- (platform.compile target partial-host-extension expander platform host configuration archive.empty state)})
+ (platform.compile target partial-host-extension expander platform host configuration archive.empty extension state)})
## _ (save-artifacts! (get@ #platform.&file-system platform) state packager,package)
## _ (cache/io.clean target ...)
]