Handle ? in first punned field.

Author: cristianoc

src/res_core.ml

@@ -2771,6 +2771,10 @@ and parseBracedOrRecordExpr p =
         let loc = mkLoc startPos p.prevEndPos in
         let braces = makeBracesAttr loc in
         {expr with pexp_attributes = braces :: expr.pexp_attributes}))
+  | Question ->
+    let expr = parseRecordExpr ~startPos [] p in
+    Parser.expect Rbrace p;
+    expr
   | Uident _ | Lident _ -> (
     let startToken = p.token in
     let valueOrConstructor = parseValueOrConstructor p in

tests/parsing/grammar/expressions/expected/record.res.txt

@@ -19,7 +19,7 @@ let r =
     z = (((None : tt))[@optional ])
   }
 let z name = { name = ((name)[@optional ]); x = 3 }
-let z name = { name = ((name)[@optional ]); x = 3 }
+let z name = { name = ((name)[@ns.optional ]); x = 3 }
 let z name = { name; x = ((x)[@optional ]) }
 let zz name = { name; x = ((x)[@ns.optional ]) }
 let _ =

tests/parsing/grammar/expressions/record.res

@@ -28,7 +28,7 @@ let r = {x: ? None, y: ?None, z: @optional (None:tt)}
 
 let z = name => { name : @optional name, x: 3}
 
-let z = name => { @optional name, x: 3}
+let z = name => { ? name, x: 3}
 
 let z = name => { name, @optional x }
 

tests/printer/expr/expected/record.res.txt

@@ -78,7 +78,7 @@ let r = {x: ?None, y: ?None, z: (@optional None: tt)}
 
 let z = name => {@optional name, x: 3}
 
-let z = name => {@optional name, x: 3}
+let z = name => {?name, x: 3}
 
 let z = name => {name, @optional x}
 

tests/printer/expr/record.res

@@ -68,7 +68,7 @@ let r = {x: ? None, y: ?None, z: @optional (None:tt)}
 
 let z = name => { name : @optional name, x: 3}
 
-let z = name => { @optional name, x: 3}
+let z = name => { ? name, x: 3}
 
 let z = name => { name, @optional x }