variants: hack around numbers

ahrefs · Jan 21, 2025 · 2ff0045 · 2ff0045
1 parent a485bdb
commit 2ff0045
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/utils.ml b/lib/utils.ml
@@ -71,7 +71,10 @@ let type_name = sanitize_name
 let variant_name str =
   match str with
   | "" -> "None"
-  | _ ->  String.capitalize_ascii (sanitize_name str)
+  | _ ->
+    match str.[0] with
+    | '0'..'9' -> "N_" ^ (sanitize_name str)
+    | _ -> String.capitalize_ascii (sanitize_name str)
 
 module Fresh (T : sig
     type t