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))))