diff options
Diffstat (limited to 'new-luxc/source/program.lux')
-rw-r--r-- | new-luxc/source/program.lux | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux index 761a6eabc..5708211fd 100644 --- a/new-luxc/source/program.lux +++ b/new-luxc/source/program.lux @@ -8,7 +8,8 @@ text/format) [io #- run] [cli #+ program: CLI]) - (luxc (lang [";L" translation]))) + (luxc [repl] + (lang [";L" translation]))) ## (type: Compilation ## {#program &;Path @@ -40,14 +41,14 @@ ## (exec (&compiler;compile-program program target sources) ## (io [])))) -(def: (or-crash! action) - (All [a] (-> (T;Task a) (P;Promise a))) +(def: (or-crash! failure-describer action) + (All [a] (-> Text (T;Task a) (P;Promise a))) (do P;Monad<Promise> [?output action] (case ?output (#e;Error error) (exec (log! (format "\n" - "Compilation failed:" "\n" + failure-describer "\n" error "\n")) ("lux io exit" 1)) |