Fix bug with incorrect enum serdes

This commit is contained in:
Joshua Suskalo 2022-07-07 15:23:52 -05:00
parent 6940842577
commit c0dee46fe9
No known key found for this signature in database
GPG key ID: 9B6BA586EFF1B9F0

View file

@ -1260,13 +1260,14 @@
[variants]
(if (map? variants)
variants
(reduce
(fn [[m next-id] variant]
(if (vector? variant)
[(conj m variant) (inc (second variant))]
[(assoc m variant next-id) (inc next-id)]))
[{} 0]
variants)))
(first
(reduce
(fn [[m next-id] variant]
(if (vector? variant)
[(conj m variant) (inc (second variant))]
[(assoc m variant next-id) (inc next-id)]))
[{} 0]
variants))))
(defmethod serialize* ::enum
[obj [_enum variants & {:keys [repr]}] scope]