Use *data-readers* value for edn/read-string

This commit is contained in:
Peter Taoussanis 2013-08-07 17:52:58 +07:00
parent d3120f0246
commit 08f2cb1273

View file

@ -237,7 +237,7 @@
(let [type-id (.readByte s)] (let [type-id (.readByte s)]
(utils/case-eval type-id (utils/case-eval type-id
id-reader (edn/read-string (read-utf8 s)) id-reader (edn/read-string {:readers *data-readers*} (read-utf8 s))
id-bytes (read-bytes s) id-bytes (read-bytes s)
id-nil nil id-nil nil
id-boolean (.readBoolean s) id-boolean (.readBoolean s)