From 3a3682f2c41287cc2d8af5df15de31a176213df4 Mon Sep 17 00:00:00 2001
From: KKlochko <KKlochko@protonmail.com>
Date: Wed, 25 Oct 2023 22:03:02 +0300
Subject: [PATCH] Add the main for the cli module.

---
 src/cipher_analytical_machine/cli/cli.clj | 7 +++++++
 src/cipher_analytical_machine/core.clj    | 5 +----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/cipher_analytical_machine/cli/cli.clj b/src/cipher_analytical_machine/cli/cli.clj
index c4f67bc..ab2ac09 100644
--- a/src/cipher_analytical_machine/cli/cli.clj
+++ b/src/cipher_analytical_machine/cli/cli.clj
@@ -160,3 +160,10 @@
 
      (show-and-save-output options))))
 
+(defn cli-main
+  [args]
+  (let [{:keys [options arguments action-type exit-message ok?]} (validate-args args)]
+    (if exit-message
+      (exit exit-message ok?)
+      (actions options arguments action-type))))
+
diff --git a/src/cipher_analytical_machine/core.clj b/src/cipher_analytical_machine/core.clj
index e5106b4..bd01aae 100644
--- a/src/cipher_analytical_machine/core.clj
+++ b/src/cipher_analytical_machine/core.clj
@@ -5,8 +5,5 @@
 
 (defn -main
   [& args]
-  (let [{:keys [options arguments action-type exit-message ok?]} (cli/validate-args args)]
-    (if exit-message
-      (cli/exit exit-message ok?)
-      (cli/actions options arguments action-type))))
+  (cli/cli-main args))