From c0dee46fe9c7054619871f2be42a59c19532a172 Mon Sep 17 00:00:00 2001
From: Joshua Suskalo <joshua@suskalo.org>
Date: Thu, 7 Jul 2022 15:23:52 -0500
Subject: [PATCH] Fix bug with incorrect enum serdes

---
 src/clj/coffi/mem.clj | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/src/clj/coffi/mem.clj b/src/clj/coffi/mem.clj
index ce996cd..e95a518 100644
--- a/src/clj/coffi/mem.clj
+++ b/src/clj/coffi/mem.clj
@@ -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]