From 74fd0966b60a3594b5f6d289d837207718352ef2 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 23 Nov 2017 19:11:27 -0400
Subject: - Added REPL.

---
 new-luxc/source/program.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'new-luxc/source/program.lux')

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))
 
-- 
cgit v1.2.3