Map prop value

Author: nojaf

compiler/ml/ast_mapper_from0.ml

@@ -360,6 +360,16 @@ module E = struct
                  when name = v ->
                  Some
                    (Parsetree.JSXPropPunning (true, {txt = name; loc = name_loc}))
+               | Asttypes.Noloc.Labelled name, exp ->
+                 Some
+                   (Parsetree.JSXPropValue
+                      ( {txt = name; loc = Location.none},
+                        false,
+                        sub.expr sub exp ))
+               | Asttypes.Noloc.Optional name, exp ->
+                 Some
+                   (Parsetree.JSXPropValue
+                      ({txt = name; loc = Location.none}, true, sub.expr sub exp))
                | _ -> None)
       in
       jsx_unary_element ~loc ~attrs tag_name props

compiler/ml/ast_mapper_to0.ml

@@ -465,6 +465,12 @@ module E = struct
                  else Asttypes.Noloc.Labelled name.txt
                in
                (label, ident)
+             | JSXPropValue (name, is_optional, value) ->
+               let label =
+                 if is_optional then Asttypes.Noloc.Optional name.txt
+                 else Asttypes.Noloc.Labelled name.txt
+               in
+               (label, sub.expr sub value)
              | _ -> failwith "todo")
       in
       let children_expr =