aboutsummaryrefslogtreecommitdiff
path: root/new-luxc
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc')
-rw-r--r--new-luxc/source/luxc/base.lux5
-rw-r--r--new-luxc/source/luxc/compiler.lux6
-rw-r--r--new-luxc/source/program.lux14
3 files changed, 9 insertions, 16 deletions
diff --git a/new-luxc/source/luxc/base.lux b/new-luxc/source/luxc/base.lux
index 8660d7ccf..bc05afea4 100644
--- a/new-luxc/source/luxc/base.lux
+++ b/new-luxc/source/luxc/base.lux
@@ -10,8 +10,9 @@
(type: #export Path Text)
(type: #export Mode
- #Release
- #Debug)
+ #Build
+ #Eval
+ #REPL)
(def: #export (fail message)
(All [a] (-> Text (Lux a)))
diff --git a/new-luxc/source/luxc/compiler.lux b/new-luxc/source/luxc/compiler.lux
index 12966ba00..67a9928fd 100644
--- a/new-luxc/source/luxc/compiler.lux
+++ b/new-luxc/source/luxc/compiler.lux
@@ -118,7 +118,7 @@
(def: init-compiler-info
Compiler-Info
{#;compiler-version compiler-version
- #;compiler-mode #;Release})
+ #;compiler-mode #;Build})
(def: (init-compiler host)
(-> Host Compiler)
@@ -144,8 +144,8 @@
(#E;Success output)
(wrap output))))
-(def: #export (compile-program mode program target sources)
- (-> &;Mode &;Path &;Path (List &;Path) (P;Promise Unit))
+(def: #export (compile-program program target sources)
+ (-> &;Path &;Path (List &;Path) (P;Promise Unit))
(do P;Monad<Promise>
[#let [compiler (init-compiler init-host)]
_ (or-crash! (&&runtime;compile-runtime []))
diff --git a/new-luxc/source/program.lux b/new-luxc/source/program.lux
index e7fa95c2d..ecf5cdd6f 100644
--- a/new-luxc/source/program.lux
+++ b/new-luxc/source/program.lux
@@ -10,8 +10,7 @@
))
(type: Compilation
- {#mode &;Mode
- #program &;Path
+ {#program &;Path
#target &;Path})
(def: (marker tokens)
@@ -24,16 +23,9 @@
(cli;after (cli;option tags)
cli;any))
-(def: mode^
- (CLI &;Mode)
- ($_ cli;alt
- (marker (list "release"))
- (marker (list "debug"))))
-
(def: compilation^
(CLI Compilation)
($_ cli;seq
- mode^
(tagged (list "-p" "--program"))
(tagged (list "-t" "--target"))))
@@ -43,6 +35,6 @@
#;None
(io (log! "No REPL for you!"))
- (#;Some [mode program target])
- (exec (&compiler;compile-program mode program target sources)
+ (#;Some [program target])
+ (exec (&compiler;compile-program program target sources)
(io []))))