[mod] Msgpack: throw when packing unsupported types

Author: ptaoussanis

src/taoensso/msgpack/impl.clj

@@ -131,14 +131,9 @@
 
   Object
   (pack-bytes [x ^DataOutput out]
-    (pack-bytes
-      {:msgpack/unpackable
-       {:type (str (type x))
-        :preview
-        (try
-          (let [out (pr-str x)] (subs out 0 (min 32 (count out))))
-          (catch Throwable _ :unprintable))}}
-      out)))
+    (truss/ex-info!
+      (str "Pack failed: unsupported type (" (type x) ")")
+      {:type (type x), :value x})))
 
 ;; Separate for CLJ-1381
 (extend-protocol Packable (class (into-array Byte [])) (pack-bytes [a  ^DataOutput out] (pack-bytes (byte-array a) out)))

src/taoensso/msgpack/impl.cljs

@@ -272,14 +272,10 @@
   (pack-bytes [x out]
     (if (seqable? x)
       (pack-seq x out)
-      (pack-bytes
-        {:msgpack/unpackable
-         {:type (enc/type-name x)
-          :preview
-          (try
-            (let [s (pr-str x)] (subs s 0 (min 32 (count s))))
-            (catch :default _ :unprintable))}}
-        out))))
+      (let [type-name (enc/type-name x)]
+        (truss/ex-info!
+          (str "Pack failed: unsupported type (" type-name ")")
+          {:type type-name, :value x})))))
 
 ;;;; Unpacking