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

28
src/taoensso/nippy.clj
View file

@ -768,20 +768,22 @@
(->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
(println (format "Warning: resetting Nippy thaw for custom type with id: %s" (when (contains? *custom-readers* ~(coerce-custom-type-id custom-type-id))
custom-type-id))) (println (format "Warning: resetting Nippy thaw for custom type with id: %s"
`(swap-custom-readers! ~custom-type-id)))
(fn [m#] (swap-custom-readers!
(assoc m# (fn [m#]
~(coerce-custom-type-id custom-type-id) (assoc m#
(fn [~(with-meta in {:tag 'java.io.DataInput})] ~(coerce-custom-type-id custom-type-id)
~@body))))) (fn [~(with-meta in {:tag 'java.io.DataInput})]
~@body))))))
(comment (defrecord MyType [data]) (comment
(extend-freeze MyType 1 [x out] (.writeUTF out (:data x))) (defrecord MyType [data])
(extend-thaw 1 [in] (->MyType (.readUTF in))) (extend-freeze MyType 1 [x out] (.writeUTF out (:data x)))
(thaw (freeze (->MyType "Joe")))) (extend-thaw 1 [in] (->MyType (.readUTF in)))
(thaw (freeze (->MyType "Joe"))))
;;; Some useful custom types - EXPERIMENTAL ;;; Some useful custom types - EXPERIMENTAL