diff options
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/base.lux | 5 | ||||
-rw-r--r-- | new-luxc/source/luxc/compiler.lux | 6 | ||||
-rw-r--r-- | new-luxc/source/program.lux | 14 |
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 [])))) |