From de1d6adc6657feb81332db8620094dd8de150b96 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Jul 2020 03:55:43 -0400
Subject: Mo' fixes, less problems.

---
 stdlib/source/program/compositor.lux | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/program')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index f208fb73e..63c398bf9 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -91,7 +91,7 @@
 
 (with-expansions [<parameters> (as-is anchor expression artifact)]
   (def: #export (compiler static
-                          expander host-analysis platform generation-bundle host-directive-bundle program extender
+                          expander host-analysis platform generation-bundle host-directive-bundle program anchorT,expressionT,directiveT extender
                           service
                           packager,package)
     (All [<parameters>]
@@ -102,6 +102,7 @@
           (generation.Bundle <parameters>)
           (directive.Bundle <parameters>)
           (Program expression artifact)
+          [Type Type Type]
           Extender
           Service
           [Packager Path]
@@ -119,7 +120,7 @@
                                         platform}
                                        {(Promise (Try [(directive.State+ <parameters>)
                                                        Archive]))
-                                        (:assume (platform.initialize static compilation-module expander host-analysis platform generation-bundle host-directive-bundle program extender
+                                        (:assume (platform.initialize static compilation-module expander host-analysis platform generation-bundle host-directive-bundle program anchorT,expressionT,directiveT extender
                                                                       import compilation-sources))})
                [archive state] (:share [<parameters>]
                                        {(Platform <parameters>)
-- 
cgit v1.2.3