fix compat with 4.14

melange-community · Aug 15, 2024 · 3f71278 · 3f71278
1 parent d5eaf28
commit 3f71278
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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