From 28c724857d76afdc40b5b036f415cc151eb66263 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 2 Dec 2020 20:37:13 -0400
Subject: Replaced "contains?" function with "key?" function.

---
 stdlib/source/program/aedifex/cli.lux             |  4 ++++
 stdlib/source/program/aedifex/command/version.lux | 16 ++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 stdlib/source/program/aedifex/command/version.lux

(limited to 'stdlib/source/program/aedifex')

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))))
-- 
cgit v1.2.3