From 6ad6045b94bc871c5107bfc75d39643b6c1bc8ba Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Fri, 12 May 2023 16:42:25 +0200 Subject: [PATCH] minor --- src/babashka/pods/impl.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/babashka/pods/impl.clj b/src/babashka/pods/impl.clj index 5d54b66..2fc43fc 100644 --- a/src/babashka/pods/impl.clj +++ b/src/babashka/pods/impl.clj @@ -93,9 +93,9 @@ (defn transit-json-write [pod-id ^String s metadata?] (with-open [baos (java.io.ByteArrayOutputStream. 4096)] - (let [w (transit/writer baos :json (merge {:handlers (get @transit-write-handler-maps pod-id) - :default-handler (get @transit-default-write-handlers pod-id)} - (when metadata? {:transform transit/write-meta})))] + (let [w (transit/writer baos :json (cond-> {:handlers (get @transit-write-handler-maps pod-id) + :default-handler (get @transit-default-write-handlers pod-id)} + metadata? (assoc :transform transit/write-meta)))] (transit/write w s) (str baos)))) @@ -106,7 +106,7 @@ chans (:chans pod) write-fn (case format :edn pr-str - :json cheshire/generate-string + :json cheshire/generate-string :transit+json #(transit-json-write (:pod-id pod) % (:arg-meta opts))) id (next-id) chan (if handlers handlers