diff options
author | Eduardo Julian | 2018-05-10 20:16:56 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-05-10 20:16:56 -0400 |
commit | 0594525aea5a62355838116a1408f7ce7a7ba0b4 (patch) | |
tree | 3c00ce0edbadc3eb1566e825579e51f24bd5eb88 /new-luxc/source/program.lux | |
parent | 022ada35548ef5e0e3b9614f9bb96de9d2137ced (diff) |
- Adjusted new-luxc to latest changes.
Diffstat (limited to 'new-luxc/source/program.lux')
-rw-r--r-- | new-luxc/source/program.lux | 31 |
1 files changed, 15 insertions, 16 deletions
diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux index 5e60c318a..bc5f65e5d 100644 --- a/new-luxc/source/program.lux +++ b/new-luxc/source/program.lux @@ -63,20 +63,19 @@ (#e.Success output) (wrap output)))) -(program: ([service ..service]) - (exec - (case service - (#Build [sources target program]) - (<| (or-crash! "Compilation failed:") - (promise.future - (do io.Monad<Process> - [#let [start (io.run instant.now)] - result (translationL.translate-program sources target program) - #let [end (io.run instant.now) - _ (log! (format "\n" "Elapsed time: " (%duration (instant.span start end))))]] - (wrap result)))) - - (#REPL [sources target]) - (<| (or-crash! "REPL failed:") - (repl.run sources target))) +(program: [{service ..service}] + (exec (case service + (#Build [sources target program]) + (<| (or-crash! "Compilation failed:") + (promise.future + (do io.Monad<Process> + [#let [start (io.run instant.now)] + result (translationL.translate-program sources target program) + #let [end (io.run instant.now) + _ (log! (format "\n" "Elapsed time: " (%duration (instant.span start end))))]] + (wrap result)))) + + (#REPL [sources target]) + (<| (or-crash! "REPL failed:") + (repl.run sources target))) (io []))) |