Fix bug with incorrect enum serdes
This commit is contained in:
parent
6940842577
commit
c0dee46fe9
1 changed files with 8 additions and 7 deletions
|
|
@ -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]
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue