aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source')
-rw-r--r--new-luxc/source/program.lux36
1 files changed, 19 insertions, 17 deletions
diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux
index 51f817b6f..507073ead 100644
--- a/new-luxc/source/program.lux
+++ b/new-luxc/source/program.lux
@@ -8,7 +8,9 @@
["." io (#+ IO)]
["." try (#+ Try)]
[parser
- [cli (#+ program:)]]]
+ [cli (#+ program:)]]
+ [concurrency
+ [promise (#+ Promise)]]]
[data
[text
["%" format (#+ format)]]
@@ -98,13 +100,12 @@
apply-method))))
(def: #export platform
- ## (IO (Platform IO Anchor (Bytecode Any) Definition))
- (IO (Platform IO _.Anchor _.Inst _.Definition))
+ ## (IO (Platform Anchor (Bytecode Any) Definition))
+ (IO (Platform _.Anchor _.Inst _.Definition))
(do io.monad
[## host jvm/host.host
host jvm.host]
- (wrap {#platform.&monad io.monad
- #platform.&file-system file.system
+ (wrap {#platform.&file-system (file.async file.system)
#platform.host host
## #platform.phase jvm.generate
#platform.phase expression.translate
@@ -144,15 +145,16 @@
(#/cli.Compilation configuration) configuration
(#/cli.Interpretation configuration) configuration)
jar-path (format target (:: file.system separator) "program.jar")]
- (/.compiler @.jvm
- ".jvm"
- ..expander
- analysis.bundle
- ..platform
- ## generation.bundle
- translation.bundle
- (directive.bundle extender)
- jvm/program.program
- ..extender
- service
- [(packager.package jvm/program.class) jar-path])))
+ (exec (/.compiler @.jvm
+ ".jvm"
+ ..expander
+ analysis.bundle
+ ..platform
+ ## generation.bundle
+ translation.bundle
+ (directive.bundle extender)
+ jvm/program.program
+ ..extender
+ service
+ [(packager.package jvm/program.class) jar-path])
+ (io.io []))))