From 7746c295fbb541a11a45ddad6ab9b851335d331b Mon Sep 17 00:00:00 2001
From: niten <niten@sea.fudo.org>
Date: Wed, 9 Nov 2022 22:00:13 -0800
Subject: [PATCH] Tell the user how many characters they supplied

---
 src/kerberos/keygen/core.clj | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/kerberos/keygen/core.clj b/src/kerberos/keygen/core.clj
index 33782a9..5072a6f 100644
--- a/src/kerberos/keygen/core.clj
+++ b/src/kerberos/keygen/core.clj
@@ -25,7 +25,8 @@
 (defn -main [& args]
   (let [seed-string (str/join "" args)]
     (when (>= 32 (count seed-string))
-      (throw (ex-info "key generation requires a seed string of >32 characters." {})))
+      (throw (ex-info "key generation requires a seed string of >= 32 characters."
+                      { :seed-length (count seed-string)})))
     (-> seed-string
         (string->seed)
         (generate-key)