aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lux-jvm/source/program.lux18
1 files changed, 7 insertions, 11 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index a6c07bbd4..a597ce394 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -17,12 +17,12 @@
[collection
[array (.only Array)]]]
[meta
- ["@" target (.only)
- ["[0]" jvm
- [bytecode (.only Bytecode)]
- ["[1]/[0]" type
- ["[1]/[0]" box]]]]
- [compiler (.only)
+ [compiler
+ ["@" target (.only)
+ ["[0]" jvm
+ [bytecode (.only Bytecode)]
+ ["[1]/[0]" type
+ ["[1]/[0]" box]]]]
[default
["[0]" platform (.only Platform)]]
[meta
@@ -157,16 +157,12 @@
(-> Any (Async Any))
(async.future (of world/environment.default exit +0)))
-(def lux_compiler
- (-> Any platform.Custom)
- (|>> as_expected))
-
(def _
(program [service cli.service]
(let [context (context.jvm (cli.target service))]
(exec (do async.monad
[[loader host platform] (async.future ..platform)
- _ (compositor.compiler ..lux_compiler
+ _ (compositor.compiler (|>> (as platform.Custom))
context
..expander
(analysis.bundle loader host)