diff options
| author | Eduardo Julian | 2020-12-02 20:37:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-12-02 20:37:13 -0400 |
| commit | 28c724857d76afdc40b5b036f415cc151eb66263 (patch) | |
| tree | 3e970ca2a10dd7bb5c7ddd405349762945464d39 /stdlib/source/program/aedifex | |
| parent | 34e310622bdeb1d0588c0664c0e78cbaa84f837c (diff) | |
Replaced "contains?" function with "key?" function.
Diffstat (limited to 'stdlib/source/program/aedifex')
| -rw-r--r-- | stdlib/source/program/aedifex/cli.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/version.lux | 16 |
2 files changed, 20 insertions, 0 deletions
diff --git a/stdlib/source/program/aedifex/cli.lux b/stdlib/source/program/aedifex/cli.lux index d52bf4df6..7af7405a9 100644 --- a/stdlib/source/program/aedifex/cli.lux +++ b/stdlib/source/program/aedifex/cli.lux @@ -32,6 +32,7 @@ (cli.this "test"))) (type: #export Command + #Version #Clean #POM #Dependencies @@ -43,6 +44,8 @@ (def: #export equivalence (Equivalence Command) ($_ equivalence.sum + ## #Version + ..any-equivalence ## #Clean ..any-equivalence ## #POM @@ -64,6 +67,7 @@ (def: command' (Parser Command) ($_ <>.or + (cli.this "version") (cli.this "clean") (cli.this "pom") (cli.this "deps") diff --git a/stdlib/source/program/aedifex/command/version.lux b/stdlib/source/program/aedifex/command/version.lux new file mode 100644 index 000000000..8f26a7fb7 --- /dev/null +++ b/stdlib/source/program/aedifex/command/version.lux @@ -0,0 +1,16 @@ +(.module: + [lux #* + [tool + [compiler + ["." version] + ["." language #_ + ["#/." lux #_ + ["#" version]]]]]] + ["." /// #_ + [command (#+ Command)] + ["#." action]]) + +(def: #export (do! profile) + (Command Any) + (\ ///action.monad wrap + (log! (version.format language/lux.version)))) |