aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/compositor
diff options
context:
space:
mode:
authorEduardo Julian2019-06-06 22:44:00 -0400
committerEduardo Julian2019-06-06 22:44:00 -0400
commitc218bc693aa3703fee666c3ca1c068201c07d2a9 (patch)
tree5e5290284798eb9a7497eeda66fdd2660011a7dd /stdlib/source/program/compositor
parentb7f62d92c3ed9dcd0d2d48d680798114ad64c9df (diff)
WIP: Class definition.
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux7
1 files changed, 4 insertions, 3 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index c39544019..7d058ec0e 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -78,11 +78,12 @@
(#error.Failure error)
(:: io.monad wrap (#error.Failure error)))))
-(def: #export (compiler expander platform bundle program service)
+(def: #export (compiler expander platform generation-bundle host-statement-bundle program service)
(All [anchor expression statement]
(-> Expander
(IO (Platform IO anchor expression statement))
(generation.Bundle anchor expression statement)
+ (statement.Bundle anchor expression statement)
(-> expression statement)
Service
(IO Any)))
@@ -97,7 +98,7 @@
{(Platform IO anchor expression statement)
platform}
{(IO (Error (statement.State+ anchor expression statement)))
- (platform.initialize expander platform bundle program)})
+ (platform.initialize expander platform generation-bundle host-statement-bundle program)})
[archive state] (:share [anchor expression statement]
{(Platform IO anchor expression statement)
platform}
@@ -112,5 +113,5 @@
## TODO: Fix the interpreter...
(undefined)
## (<| (or-crash! "Interpretation failed:")
- ## (interpreter.run (error.with io.monad) console platform configuration bundle))
+ ## (interpreter.run (error.with io.monad) console platform configuration generation-bundle))
)))