Hotfix: missing thaw routines for deprecated type ids: 6, 80

Ref. https://github.com/ptaoussanis/faraday/issues/98
This commit is contained in:
Peter Taoussanis 2016-07-26 12:05:52 +07:00
parent 9bac40e705
commit c1d48c7ef9

View file

@ -1196,16 +1196,18 @@
id-uuid (UUID. (.readLong in) (.readLong in)) id-uuid (UUID. (.readLong in) (.readLong in))
;; Deprecated ------------------------------------------------------ ;; Deprecated ------------------------------------------------------
id-boolean-depr1 (.readBoolean in) id-boolean-depr1 (.readBoolean in)
id-sorted-map-depr1 (read-kvs-depr1 (sorted-map) in) id-sorted-map-depr1 (read-kvs-depr1 (sorted-map) in)
id-map-depr2 (read-kvs-depr1 {} in) id-map-depr2 (read-kvs-depr1 {} in)
id-reader-depr1 (read-edn (.readUTF in)) id-reader-depr1 (read-edn (.readUTF in))
id-reader-depr2 (read-edn (read-utf8 in (.readInt in))) id-reader-depr2 (read-edn (read-utf8 in (.readInt in)))
id-str-depr1 (.readUTF in) id-str-depr1 (.readUTF in)
id-kw-depr1 (keyword (.readUTF in)) id-kw-depr1 (keyword (.readUTF in))
id-map-depr1 (apply hash-map id-map-depr1 (apply hash-map
(enc/repeatedly-into [] (* 2 (.readInt in)) (enc/repeatedly-into [] (* 2 (.readInt in))
(fn [] (thaw-from-in! in)))) (fn [] (thaw-from-in! in))))
id-serializable-depr1 (read-serializable in (read-utf8 in (read-lg-count in)))
id-record-depr1 (read-record in (read-utf8 in (read-lg-count in)))
;; ----------------------------------------------------------------- ;; -----------------------------------------------------------------
id-prefixed-custom (read-custom! in :prefixed (.readShort in)) id-prefixed-custom (read-custom! in :prefixed (.readShort in))