Redact secrets from startup error logs (#4)

Co-authored-by: Per Magnus Petersen <magnus@pmagnus.dk>

src/clj/pmagnus/elprice/core.clj

@@ -19,8 +19,11 @@
 ;; log uncaught exceptions in threads
 (Thread/setDefaultUncaughtExceptionHandler
   (fn [thread ex]
+    ;; Integrant exceptions include component configuration in ex-data. Logging
+    ;; the exception object can therefore disclose database or cookie secrets.
     (log/error {:what            :uncaught-exception
-                :exception ex
+                :exception-class (.getName (class ex))
+                :message         (.getMessage ex)
                 :where           (str "Uncaught exception on " (.getName thread))})))
 
 

test/clj/pmagnus/elprice/core_test.clj

@@ -3,5 +3,6 @@
     [clojure.test :refer [deftest is]]
     [pmagnus.elprice.core :as core]))
 
+
 (deftest system-state-is-managed-in-an-atom
   (is (instance? clojure.lang.Atom core/system)))