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

2023-08-02 12:20:17 +02:00 · 2023-08-02 12:20:17 +02:00 · 8778fa49cc
commit 8778fa49cc
parent 8e363dbcf9
1 changed files with 13 additions and 3 deletions
--- 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