From 3f71278a6a12f2bc8e1757f6d9a26b6c327753b9 Mon Sep 17 00:00:00 2001
From: Javier Chavarri <javier.chavarri@gmail.com>
Date: Thu, 15 Aug 2024 07:34:27 +0000
Subject: [PATCH] fix compat with 4.14

---
 ppx/tools/ppx_deriving_tools.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ppx/tools/ppx_deriving_tools.ml b/ppx/tools/ppx_deriving_tools.ml
index 50844f0..13a28f8 100644
--- a/ppx/tools/ppx_deriving_tools.ml
+++ b/ppx/tools/ppx_deriving_tools.ml
@@ -424,7 +424,8 @@ module Conv = struct
     let is_enum =
       List.for_all cases ~f:(fun (_, r) ->
           match r with
-          | `Rtag (_, ts) -> List.is_empty ts
+          | `Rtag (_, ts) -> (
+              match ts with [] -> true | _ :: _ -> false)
           | `Rinherit _ -> false)
     in
     is_enum, cases