aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex')
-rw-r--r--stdlib/source/program/aedifex/cli.lux4
-rw-r--r--stdlib/source/program/aedifex/command/version.lux16
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))))