From 9036af19573c0f1c5f2d71f9f51afe770c99497e Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Mon, 1 Jun 2020 17:57:05 +0200 Subject: [PATCH] Add logging on EDN or JSON read error --- src/babashka/pods/impl.clj | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/src/babashka/pods/impl.clj b/src/babashka/pods/impl.clj index e9f978c..ae34f41 100644 --- a/src/babashka/pods/impl.clj +++ b/src/babashka/pods/impl.clj @@ -80,8 +80,18 @@ err-stream (:err pod) readers (:readers pod) read-fn (case format - :edn #(edn/read-string {:readers readers} %) - :json #(cheshire/parse-string-strict % true))] + :edn (fn [s] + (try (edn/read-string {:readers readers} s) + (catch Exception e + (binding [*out* *err*] + (println "Cannot read EDN: " (pr-str s)) + (throw e))))) + :json (fn [s] + (try (cheshire/parse-string-strict s true) + (catch Exception e + (binding [*out* *err*] + (println "Cannot read JSON: " (pr-str s)) + (throw e))))))] (try (loop [] (let [reply (try (read stdout)