aboutsummaryrefslogtreecommitdiff
path: root/lux-php
diff options
context:
space:
mode:
Diffstat (limited to 'lux-php')
-rw-r--r--lux-php/source/program.lux59
1 files changed, 30 insertions, 29 deletions
diff --git a/lux-php/source/program.lux b/lux-php/source/program.lux
index dbaded2ce..d3d191a8f 100644
--- a/lux-php/source/program.lux
+++ b/lux-php/source/program.lux
@@ -1,6 +1,6 @@
(.require
[lux (.except)
- [program (.only program:)]
+ [program (.only program)]
["[0]" ffi]
["[0]" debug]
[abstract
@@ -558,31 +558,32 @@
(-> Any (Promise Any))
(promise.future (at world/program.default exit +0)))
-(`` (program: [service /cli.service]
- (let [extension ".php"]
- (do io.monad
- [platform ..platform]
- (exec (do promise.monad
- [_ (/.compiler [/static.#host @.php
- /static.#host_module_extension extension
- /static.#target (/cli.target service)
- /static.#artifact_extension extension]
- ..expander
- analysis.bundle
- (io.io platform)
- generation.bundle
- extension/bundle.empty
- ..program
- [(& Nat _.Label) _.Expression _.Statement]
- ..extender
- service
- [(packager.package (_.manual "<?php")
- _.code
- _.then
- (|>>))
- (format (/cli.target service)
- (at file.default separator)
- "program"
- extension)])]
- (..declare_success! []))
- (io.io []))))))
+(`` (def _
+ (program [service /cli.service]
+ (let [extension ".php"]
+ (do io.monad
+ [platform ..platform]
+ (exec (do promise.monad
+ [_ (/.compiler [/static.#host @.php
+ /static.#host_module_extension extension
+ /static.#target (/cli.target service)
+ /static.#artifact_extension extension]
+ ..expander
+ analysis.bundle
+ (io.io platform)
+ generation.bundle
+ extension/bundle.empty
+ ..program
+ [(& Nat _.Label) _.Expression _.Statement]
+ ..extender
+ service
+ [(packager.package (_.manual "<?php")
+ _.code
+ _.then
+ (|>>))
+ (format (/cli.target service)
+ (at file.default separator)
+ "program"
+ extension)])]
+ (..declare_success! []))
+ (io.io [])))))))