luciano/nippy
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Restore backwards compatibility with Timbre v4.x Carmine appender

Browse source
This commit is contained in:
Peter Taoussanis 2016-04-16 11:24:57 +07:00
parent 460c20d21f
commit cac9123794
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/taoensso/nippy.clj
View file

@ -245,6 +245,8 @@
(defn set-auto-freeze-compressor! [x] (alter-var-root #'*auto-freeze-compressor* (constantly x))) (defn set-auto-freeze-compressor! [x] (alter-var-root #'*auto-freeze-compressor* (constantly x)))
(defn swap-custom-readers! [f] (alter-var-root #'*custom-readers* f)) (defn swap-custom-readers! [f] (alter-var-root #'*custom-readers* f))
(declare ^:dynamic *final-freeze-fallback*) ; DEPRECATED
;;;; Freezing ;;;; Freezing
(defprotocol Freezable (defprotocol Freezable
@ -860,9 +862,14 @@
(try-write-readable out x) (try-write-readable out x)
(write-unfreezable out x)) (write-unfreezable out x))
(ff out x)) (ff out x))
(or (or
(try-write-serializable out x) (try-write-serializable out x)
(try-write-readable out x) (try-write-readable out x)
;; For back compatibility:
(when-let [fff *final-freeze-fallback*] (fff out x))
(throw-unfreezable x)))) (throw-unfreezable x))))
;;;; ;;;;
@ -1502,3 +1509,8 @@
(comment (comment
(inspect-ba (freeze "hello")) (inspect-ba (freeze "hello"))
(seq (:data-ba (inspect-ba (freeze "hello"))))) (seq (:data-ba (inspect-ba (freeze "hello")))))
;;;; Deprecated
(enc/defonce* ^:dynamic *final-freeze-fallback* "DEPRECATED" nil)
(def freeze-fallback-as-str "DEPRECATED" write-unfreezable)