Preserve snake case for area labels

Author: nojaf

compiler/core/js_dump.ml

@@ -1154,20 +1154,10 @@ and print_jsx cxt ?(spread_props : J.expression option)
     in
 
     let print_prop n x ctx =
-      let n =
-        (* turn aria-label to ariaLabel *)
-        if not (String.contains n '-') then n
-        else
-          let chars = String.to_seq n |> List.of_seq in
-          let rec visit chars acc =
-            match chars with
-            | [] -> List.rev acc
-            | '-' :: l :: rest -> visit rest (Char.uppercase_ascii l :: acc)
-            | c :: rest -> visit rest (c :: acc)
-          in
-          visit chars [] |> List.to_seq |> String.of_seq
+      let prop_name =
+        if String.starts_with ~prefix:"aria-" n then n
+        else Js_dump_property.property_key_string n
       in
-      let prop_name = Js_dump_property.property_key_string n in
       P.string f prop_name;
       P.string f "=";
       print_prop_value x ctx

tests/tests/src/jsx_preserve_test.mjs

@@ -204,7 +204,7 @@ let _optional_props = <Jsx_preserve_test$ComponentWithOptionalProps
 />;
 
 let _props_with_hypen = <label
-  ariaLabel="close sidebar"
+  aria-label="close sidebar"
 />;
 
 export {