diff options
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index b9b2995ad..31f018081 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -30,6 +30,7 @@ ["." directive] ["." phase [macro (#+ Expander)] + [extension (#+ Extender)] ["." generation]] [default ["." platform (#+ Platform)] @@ -79,7 +80,9 @@ (#try.Failure error) (:: io.monad wrap (#try.Failure error))))) -(def: #export (compiler target partial-host-extension expander host-analysis platform generation-bundle host-directive-bundle program service +(def: #export (compiler target partial-host-extension + expander host-analysis platform generation-bundle host-directive-bundle program extender + service packager,package) (All [anchor expression directive] (-> Text @@ -90,6 +93,7 @@ (generation.Bundle anchor expression directive) (directive.Bundle anchor expression directive) (-> expression directive) + Extender Service [(-> (generation.Output directive) Binary) Path] (IO Any))) @@ -104,7 +108,7 @@ {(Platform IO anchor expression directive) platform} {(IO (Try (directive.State+ anchor expression directive))) - (platform.initialize target expander host-analysis platform generation-bundle host-directive-bundle program)}) + (platform.initialize target expander host-analysis platform generation-bundle host-directive-bundle program extender)}) [archive state] (:share [anchor expression directive] {(Platform IO anchor expression directive) platform} |