From fcbbe8e5c7d77368aad7383670e8d1ce16d7a793 Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Thu, 12 Jan 2023 19:37:28 +0100 Subject: [PATCH] :bug: Fix incorrect logging context setup --- common/src/app/common/logging.cljc | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/common/src/app/common/logging.cljc b/common/src/app/common/logging.cljc index 0796daa4b6..de8501d38a 100644 --- a/common/src/app/common/logging.cljc +++ b/common/src/app/common/logging.cljc @@ -175,14 +175,15 @@ #?(:clj (defn get-error-context [error] - (when-let [data (ex-data error)] - (merge - {:hint (ex-message error) - :spec-problems (some->> data ::s/problems (take 10) seq vec) - :spec-value (some->> data ::s/value) - :data (some-> data (dissoc ::s/problems ::s/value ::s/spec))} - (when-let [explain (ex/explain data)] - {:spec-explain explain}))))) + (merge + {:hint (ex-message error)} + (when-let [data (ex-data error)] + (merge + {:spec-problems (some->> data ::s/problems (take 10) seq vec) + :spec-value (some->> data ::s/value) + :data (some-> data (dissoc ::s/problems ::s/value ::s/spec))} + (when-let [explain (ex/explain data)] + {:spec-explain explain})))))) (defmacro log [& props]