[mod] Msgpack: throw when packing unsupported types

Author: ptaoussanis

src/taoensso/msgpack/impl.clj

@@ -131,14 +131,13 @@
 
   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)
+       :preview
+       (try
+         (let [out (pr-str x)] (subs out 0 (min 32 (count out))))
+         (catch Throwable _ :unprintable))})))
 
 ;; 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,14 @@
   (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
+           :preview
+           (try
+             (let [s (pr-str x)] (subs s 0 (min 32 (count s))))
+             (catch :default _ :unprintable))})))))
 
 ;;;; Unpacking