aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/specification/compositor
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/specification/compositor')
-rw-r--r--stdlib/source/specification/compositor/common.lux44
1 files changed, 22 insertions, 22 deletions
diff --git a/stdlib/source/specification/compositor/common.lux b/stdlib/source/specification/compositor/common.lux
index d9a7e1e24..f97ca894e 100644
--- a/stdlib/source/specification/compositor/common.lux
+++ b/stdlib/source/specification/compositor/common.lux
@@ -1,23 +1,23 @@
(.using
- [lux "*"
- [abstract
- [monad {"+" do}]]
- [control
- ["[0]" io {"+" IO}]
- ["[0]" try {"+" Try}]]
- [tool
- [compiler
- ["[0]" reference]
- ["[0]" analysis]
- ["[0]" synthesis {"+" Synthesis}]
- ["[0]" directive]
- ["[0]" phase
- ["[0]" macro {"+" Expander}]
- ["[0]" generation {"+" Operation}]
- [extension {"+" Extender}
- ["[0]" bundle]]]
- [default
- ["[0]" platform {"+" Platform}]]]]])
+ [lux "*"
+ [abstract
+ [monad {"+" do}]]
+ [control
+ ["[0]" io {"+" IO}]
+ ["[0]" try {"+" Try}]]
+ [tool
+ [compiler
+ ["[0]" reference]
+ ["[0]" analysis]
+ ["[0]" synthesis {"+" Synthesis}]
+ ["[0]" directive]
+ ["[0]" phase
+ ["[0]" macro {"+" Expander}]
+ ["[0]" generation {"+" Operation}]
+ [extension {"+" Extender}
+ ["[0]" bundle]]]
+ [default
+ ["[0]" platform {"+" Platform}]]]]])
(type: .public Runner
(-> Text Synthesis (Try Any)))
@@ -72,9 +72,9 @@
[?state (platform.initialize target expander analysis_bundle platform generation_bundle directive_bundle program extender)]
(in (do try.monad
[[directive_bundle directive_state] ?state
- .let [generation_state (value@ [directive.#generation
- directive.#state]
- directive_state)]]
+ .let [generation_state (the [directive.#generation
+ directive.#state]
+ directive_state)]]
(in [[directive_bundle directive_state]
(..runner platform generation_state)
(..definer platform generation_state)])))))