From a5e87f66c4588ac23201d00cc55a748b6088eb96 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 19 Apr 2020 00:25:35 -0400
Subject: Fixed artifact file-name generation and archive module naming in
 caching.

---
 stdlib/source/program/compositor.lux | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'stdlib/source/program/compositor.lux')

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 ...)
                ]
-- 
cgit v1.2.3