Experiment: use {} for empty record.

Author: cristianoc

src/res_core.ml

@@ -2691,13 +2691,9 @@ and parseBracedOrRecordExpr p =
   Parser.expect Lbrace p;
   match p.Parser.token with
   | Rbrace ->
-    Parser.err p (Diagnostics.unexpected Rbrace p.breadcrumbs);
     Parser.next p;
     let loc = mkLoc startPos p.prevEndPos in
-    let braces = makeBracesAttr loc in
-    Ast_helper.Exp.construct ~attrs:[braces] ~loc
-      (Location.mkloc (Longident.Lident "()") loc)
-      None
+    Ast_helper.Exp.record ~loc [] None
   | DotDotDot ->
     (* beginning of record spread, parse record *)
     Parser.next p;

tests/parsing/errors/expressions/expected/emptyBlock.res.txt

@@ -1,23 +1,2 @@
-
-  Syntax error!
-  tests/parsing/errors/expressions/emptyBlock.res:1:10
-
-  1 │ let x = {}
-  2 │ 
-  3 │ let f = (a, b) => {}
-
-  This let-binding misses an expression
-
-
-  Syntax error!
-  tests/parsing/errors/expressions/emptyBlock.res:3:20
-
-  1 │ let x = {}
-  2 │ 
-  3 │ let f = (a, b) => {}
-  4 │ 
-
-  Missing expression
-
-let x = ((())[@ns.braces ])
-let f a b = ((())[@ns.braces ])
+let x = {  }
+let f a b = {  }

tests/parsing/recovery/expression/expected/emptyBlock.res.txt

@@ -1,23 +1,2 @@
-
-  Syntax error!
-  tests/parsing/recovery/expression/emptyBlock.res:1:10
-
-  1 │ let x = {}
-  2 │ 
-  3 │ let f = (a, b) => {}
-
-  This let-binding misses an expression
-
-
-  Syntax error!
-  tests/parsing/recovery/expression/emptyBlock.res:3:20
-
-  1 │ let x = {}
-  2 │ 
-  3 │ let f = (a, b) => {}
-  4 │ 
-
-  Missing expression
-
-let x = ((())[@ns.braces ])
-let f a b = ((())[@ns.braces ])
+let x = {  }
+let f a b = {  }