[new] Include :bindings in ex-data of thaw failures

taoensso · Aug 2, 2023 · 8778fa4 · 8778fa4
1 parent 8e363db
commit 8778fa4
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/src/taoensso/nippy.clj b/src/taoensso/nippy.clj
@@ -1762,9 +1762,19 @@
                ([e msg]
                 (throw
                   (ex-info (str "Thaw failed. " msg)
-                    {:opts (assoc opts
-                             :compressor compressor
-                             :encryptor  encryptor)}
+                    {:opts
+                     (assoc opts
+                       :compressor compressor
+                       :encryptor  encryptor)
+
+                     :bindings
+                     (enc/assoc-some {}
+                       '*freeze-fallback*             *freeze-fallback*
+                       '*auto-freeze-compressor*      *auto-freeze-compressor*
+                       '*custom-readers*              *custom-readers*
+                       '*incl-metadata?*              *incl-metadata?*
+                       '*thaw-serializable-allowlist* *thaw-serializable-allowlist*)}
+
                     e))))
 
              thaw-data