[new] Include :bindings in ex-data of thaw failures
This commit is contained in:
parent
8e363dbcf9
commit
8778fa49cc
1 changed files with 13 additions and 3 deletions
|
|
@ -1762,9 +1762,19 @@
|
||||||
([e msg]
|
([e msg]
|
||||||
(throw
|
(throw
|
||||||
(ex-info (str "Thaw failed. " msg)
|
(ex-info (str "Thaw failed. " msg)
|
||||||
{:opts (assoc opts
|
{:opts
|
||||||
:compressor compressor
|
(assoc opts
|
||||||
:encryptor encryptor)}
|
: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))))
|
e))))
|
||||||
|
|
||||||
thaw-data
|
thaw-data
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue