diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/program.lux | 38 |
1 files changed, 23 insertions, 15 deletions
diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux index bc5f65e5d..62c3ad03d 100644 --- a/new-luxc/source/program.lux +++ b/new-luxc/source/program.lux @@ -1,17 +1,25 @@ (.module: - lux - (lux (control [monad #+ do] - ["p" parser]) - (concurrency [promise #+ Promise] - [task #+ Task]) - (data ["e" error] - text/format) - [io #- run] - (time [instant]) - [cli #+ program: CLI] - (world [file #+ File])) - (luxc [repl] - (lang [".L" translation]))) + [lux #* + [control + [monad (#+ do)] + ["p" parser]] + [concurrency + ["." promise (#+ Promise)] + [task (#+ Task)]] + [data + ["e" error] + [text + format]] + ["." io (#- run)] + [time + ["." instant]] + ["." cli (#+ CLI program:)] + [world + [file (#+ File)]]] + [luxc + ["." repl] + [lang + [".L" translation]]]) (type: Build {#build-sources (List File) @@ -46,8 +54,8 @@ (def: service (CLI Service) - (p.alt (p.after (cli.this "build") build) - (p.after (cli.this "repl") repl))) + (p.or (p.after (cli.this "build") build) + (p.after (cli.this "repl") repl))) (def: (or-crash! failure-describer action) (All [a] (-> Text (Task a) (Promise a))) |