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

Warn about thaw-id reset at runtime rather than expansion time

Browse source
This commit is contained in:
Peter Taoussanis 2015-06-01 11:09:59 +07:00
parent 82294f54f9
commit 5a623870fe
1 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/taoensso/nippy.clj
View file

@ -768,17 +768,19 @@
(->MyType (.readUTF data-input)))" (->MyType (.readUTF data-input)))"
[custom-type-id [in] & body] [custom-type-id [in] & body]
(assert-custom-type-id custom-type-id) (assert-custom-type-id custom-type-id)
(when (contains? *custom-readers* (coerce-custom-type-id custom-type-id)) `(do
(when (contains? *custom-readers* ~(coerce-custom-type-id custom-type-id))
(println (format "Warning: resetting Nippy thaw for custom type with id: %s" (println (format "Warning: resetting Nippy thaw for custom type with id: %s"
custom-type-id))) ~custom-type-id)))
`(swap-custom-readers! (swap-custom-readers!
(fn [m#] (fn [m#]
(assoc m# (assoc m#
~(coerce-custom-type-id custom-type-id) ~(coerce-custom-type-id custom-type-id)
(fn [~(with-meta in {:tag 'java.io.DataInput})] (fn [~(with-meta in {:tag 'java.io.DataInput})]
~@body))))) ~@body))))))
(comment (defrecord MyType [data]) (comment
(defrecord MyType [data])
(extend-freeze MyType 1 [x out] (.writeUTF out (:data x))) (extend-freeze MyType 1 [x out] (.writeUTF out (:data x)))
(extend-thaw 1 [in] (->MyType (.readUTF in))) (extend-thaw 1 [in] (->MyType (.readUTF in)))
(thaw (freeze (->MyType "Joe")))) (thaw (freeze (->MyType "Joe"))))