Remove "optional" from parser.

Author: cristianoc

src/res_core.ml

@@ -2705,7 +2705,6 @@ and parseJsxChildren p =
 and parseBracedOrRecordExpr p =
   let startPos = p.Parser.startPos in
   Parser.expect Lbrace p;
-  let attrsForFields = parseAttributesForFields p in
   match p.Parser.token with
   | Rbrace ->
     Parser.err p (Diagnostics.unexpected Rbrace p.breadcrumbs);
@@ -2786,16 +2785,7 @@ and parseBracedOrRecordExpr p =
           | _ -> valueOrConstructor
         in
         let expr =
-          parseRecordExpr ~startPos
-            [
-              ( pathIdent,
-                {
-                  valueOrConstructor with
-                  pexp_attributes =
-                    attrsForFields @ valueOrConstructor.pexp_attributes;
-                } );
-            ]
-            p
+          parseRecordExpr ~startPos [(pathIdent, valueOrConstructor)] p
         in
         Parser.expect Rbrace p;
         expr
@@ -6318,29 +6308,9 @@ and parseAttribute p =
           ] )
   | _ -> None
 
-and parseAttributeForFields p =
-  let isAttributeForField p =
-    Parser.lookahead p (function state ->
-        (Parser.next state;
-         match state.token with
-         | Lident ident -> ident = "optional"
-         | _ -> false))
-  in
-  match p.Parser.token with
-  | At when isAttributeForField p ->
-    let startPos = p.startPos in
-    Parser.next p;
-    let attrId = parseAttributeId ~startPos p in
-    let payload = parsePayload p in
-    Some (attrId, payload)
-  | _ -> None
-
 and parseAttributes p =
   parseRegion p ~grammar:Grammar.Attribute ~f:parseAttribute
 
-and parseAttributesForFields p =
-  parseRegion p ~grammar:Grammar.Attribute ~f:parseAttributeForFields
-
 (*
  * standalone-attribute ::=
  *  | @@ atribute-id