add try/catch in case transit-str fails

hard to track down error otherwise
thheller · Oct 3, 2019 · 4aa1a47 · 4aa1a47
1 parent 989590b
commit 4aa1a47
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/src/main/shadow/cljs/devtools/server/common.clj b/src/main/shadow/cljs/devtools/server/common.clj
@@ -56,9 +56,12 @@
       (fn [data]
         (let [out (ByteArrayOutputStream. 4096)
               w (transit/writer out :json)]
-          (transit/write w data)
-          (.toString out)
-          )))
+          (try
+            (transit/write w data)
+            (.toString out)
+            (catch Exception e
+              (log/warn-ex e ::transit-str-failed {:data data})
+              (throw e))))))
 
     :stop (fn [x])}