No need to copy syntax changelog anymore.

Author: cristianoc

jscomp/napkin/CHANGELOG.md

@@ -52168,6 +52168,8 @@ val arrowReturnTypExpr : Parsetree.core_type -> bool
 
 val patternRecordRowRhs : Parsetree.pattern -> bool
 
+val exprRecordRowRhs : Parsetree.expression -> kind
+
 end = struct
 #1 "res_parens.ml"
 module ParsetreeViewer = Res_parsetree_viewer
@@ -52187,6 +52189,16 @@ let expr expr =
     | {pexp_desc = Pexp_constraint _} -> Parenthesized
     | _ -> Nothing)
 
+let exprRecordRowRhs e =
+  let kind = expr e in
+  match kind with
+  | Nothing when Res_parsetree_viewer.hasOptionalAttribute e.pexp_attributes
+    -> (
+    match e.pexp_desc with
+    | Pexp_ifthenelse _ | Pexp_fun _ -> Parenthesized
+    | _ -> kind)
+  | _ -> kind
+
 let callExpr expr =
   let optBraces, _ = ParsetreeViewer.processBracesAttr expr in
   match optBraces with
@@ -58261,7 +58273,7 @@ and printExpressionRecordRow ~customLayout (lbl, expr) cmtTbl punningAllowed =
             Doc.text ": ";
             printOptionalLabel expr.pexp_attributes;
             (let doc = printExpressionWithComments ~customLayout expr cmtTbl in
-             match Parens.expr expr with
+             match Parens.exprRecordRowRhs expr with
              | Parens.Parenthesized -> addParens doc
              | Braced braces -> printBraces doc expr braces
              | Nothing -> doc);

lib/4.06.1/unstable/js_compiler.ml

@@ -52168,6 +52168,8 @@ val arrowReturnTypExpr : Parsetree.core_type -> bool
 
 val patternRecordRowRhs : Parsetree.pattern -> bool
 
+val exprRecordRowRhs : Parsetree.expression -> kind
+
 end = struct
 #1 "res_parens.ml"
 module ParsetreeViewer = Res_parsetree_viewer
@@ -52187,6 +52189,16 @@ let expr expr =
     | {pexp_desc = Pexp_constraint _} -> Parenthesized
     | _ -> Nothing)
 
+let exprRecordRowRhs e =
+  let kind = expr e in
+  match kind with
+  | Nothing when Res_parsetree_viewer.hasOptionalAttribute e.pexp_attributes
+    -> (
+    match e.pexp_desc with
+    | Pexp_ifthenelse _ | Pexp_fun _ -> Parenthesized
+    | _ -> kind)
+  | _ -> kind
+
 let callExpr expr =
   let optBraces, _ = ParsetreeViewer.processBracesAttr expr in
   match optBraces with
@@ -58261,7 +58273,7 @@ and printExpressionRecordRow ~customLayout (lbl, expr) cmtTbl punningAllowed =
             Doc.text ": ";
             printOptionalLabel expr.pexp_attributes;
             (let doc = printExpressionWithComments ~customLayout expr cmtTbl in
-             match Parens.expr expr with
+             match Parens.exprRecordRowRhs expr with
              | Parens.Parenthesized -> addParens doc
              | Braced braces -> printBraces doc expr braces
              | Nothing -> doc);

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -228030,6 +228030,8 @@ val arrowReturnTypExpr : Parsetree.core_type -> bool
 
 val patternRecordRowRhs : Parsetree.pattern -> bool
 
+val exprRecordRowRhs : Parsetree.expression -> kind
+
 end = struct
 #1 "res_parens.ml"
 module ParsetreeViewer = Res_parsetree_viewer
@@ -228049,6 +228051,16 @@ let expr expr =
     | {pexp_desc = Pexp_constraint _} -> Parenthesized
     | _ -> Nothing)
 
+let exprRecordRowRhs e =
+  let kind = expr e in
+  match kind with
+  | Nothing when Res_parsetree_viewer.hasOptionalAttribute e.pexp_attributes
+    -> (
+    match e.pexp_desc with
+    | Pexp_ifthenelse _ | Pexp_fun _ -> Parenthesized
+    | _ -> kind)
+  | _ -> kind
+
 let callExpr expr =
   let optBraces, _ = ParsetreeViewer.processBracesAttr expr in
   match optBraces with
@@ -234123,7 +234135,7 @@ and printExpressionRecordRow ~customLayout (lbl, expr) cmtTbl punningAllowed =
             Doc.text ": ";
             printOptionalLabel expr.pexp_attributes;
             (let doc = printExpressionWithComments ~customLayout expr cmtTbl in
-             match Parens.expr expr with
+             match Parens.exprRecordRowRhs expr with
              | Parens.Parenthesized -> addParens doc
              | Braced braces -> printBraces doc expr braces
              | Nothing -> doc);

lib/4.06.1/whole_compiler.ml

@@ -1569,7 +1569,6 @@ rule copy
   description = $in -> $out    
 ${buildNapkinFiles}    
 ${buildNapkinCliFiles}
-o napkin/CHANGELOG.md : copy ../res_syntax/CHANGELOG.md
 `;
   var cppoNinjaFile = "cppoVendor.ninja";
   writeFileSync(path.join(jscompDir, cppoNinjaFile), cppoNative);