aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lux-jvm/source/program.lux35
1 files changed, 18 insertions, 17 deletions
diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index a597ce394..f13547232 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -120,7 +120,7 @@
platform.#host host
platform.#phase /.translate
- platform.#runtime /runtime.translate
+ platform.#runtime /runtime.translation
platform.#phase_wrapper ..phase_wrapper
platform.#write product.right]])))
@@ -160,20 +160,21 @@
(def _
(program [service cli.service]
(let [context (context.jvm (cli.target service))]
- (exec (do async.monad
- [[loader host platform] (async.future ..platform)
- _ (compositor.compiler (|>> (as platform.Custom))
- context
- ..expander
- (analysis.bundle loader host)
- (io.io platform)
- translation.bundle
- (declaration.bundle loader ..extender)
- (/program.program /runtime.class_name)
- /reference.constant
- ..extender
- service
- [(packager.package context)
- "program.jar"])]
- (..declare_success! []))
+ (exec
+ (do async.monad
+ [[loader host platform] (async.future ..platform)
+ _ (compositor.compiler (|>> (as platform.Custom))
+ context
+ ..expander
+ (analysis.bundle loader host)
+ (io.io platform)
+ translation.bundle
+ (declaration.bundle loader ..extender)
+ (/program.program /runtime.class_name)
+ /reference.constant
+ ..extender
+ service
+ [(packager.package context)
+ "program.jar"])]
+ (..declare_success! []))
(io.io [])))))