luciano/pods
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add logging on EDN or JSON read error

Browse source
This commit is contained in:
Michiel Borkent 2020-06-01 17:57:05 +02:00
parent feb48af75f
commit 9036af1957
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/babashka/pods/impl.clj
View file

@ -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)