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] [variants]
(if (map? variants) (if (map? variants)
variants variants
(reduce (first
(fn [[m next-id] variant] (reduce
(if (vector? variant) (fn [[m next-id] variant]
[(conj m variant) (inc (second variant))] (if (vector? variant)
[(assoc m variant next-id) (inc next-id)])) [(conj m variant) (inc (second variant))]
[{} 0] [(assoc m variant next-id) (inc next-id)]))
variants))) [{} 0]
variants))))
(defmethod serialize* ::enum (defmethod serialize* ::enum
[obj [_enum variants & {:keys [repr]}] scope] [obj [_enum variants & {:keys [repr]}] scope]