From e5153db14981fa7da2c34058bed494a8662496c8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 5 Mar 2020 00:56:20 -0400
Subject: Beginning to cache artifacts.

---
 stdlib/source/program/compositor.lux | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/program')

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