One more syntax sync.

Author: cristianoc

lib/4.06.1/unstable/js_playground_compiler.ml

@@ -269911,6 +269911,7 @@ val hasOptionalAttribute : Parsetree.attributes -> bool
 val shouldIndentBinaryExpr : Parsetree.expression -> bool
 val shouldInlineRhsBinaryExpr : Parsetree.expression -> bool
 val hasPrintableAttributes : Parsetree.attributes -> bool
+val filterPrintableAttributes : Parsetree.attributes -> Parsetree.attributes
 val partitionPrintableAttributes :
   Parsetree.attributes -> Parsetree.attributes * Parsetree.attributes
 
@@ -270500,6 +270501,8 @@ let isPrintableAttribute attr =
 
 let hasPrintableAttributes attrs = List.exists isPrintableAttribute attrs
 
+let filterPrintableAttributes attrs = List.filter isPrintableAttribute attrs
+
 let partitionPrintableAttributes attrs =
   List.partition isPrintableAttribute attrs
 
@@ -275160,7 +275163,7 @@ val subBinaryExprOperand : string -> string -> bool
 val rhsBinaryExprOperand : string -> Parsetree.expression -> bool
 val flattenOperandRhs : string -> Parsetree.expression -> bool
 
-val lazyOrAssertExprRhs : Parsetree.expression -> kind
+val lazyOrAssertOrAwaitExprRhs : Parsetree.expression -> kind
 
 val fieldExpr : Parsetree.expression -> kind
 
@@ -275364,7 +275367,7 @@ let flattenOperandRhs parentOperator rhs =
   | _ when ParsetreeViewer.isTernaryExpr rhs -> true
   | _ -> false
 
-let lazyOrAssertExprRhs expr =
+let lazyOrAssertOrAwaitExprRhs expr =
   let optBraces, _ = ParsetreeViewer.processBracesAttr expr in
   match optBraces with
   | Some ({Location.loc = bracesLoc}, _) -> Braced bracesLoc
@@ -278742,7 +278745,7 @@ and printExpression ~customLayout (e : Parsetree.expression) cmtTbl =
     | Pexp_assert expr ->
       let rhs =
         let doc = printExpressionWithComments ~customLayout expr cmtTbl in
-        match Parens.lazyOrAssertExprRhs expr with
+        match Parens.lazyOrAssertOrAwaitExprRhs expr with
         | Parens.Parenthesized -> addParens doc
         | Braced braces -> printBraces doc expr braces
         | Nothing -> doc
@@ -278751,7 +278754,7 @@ and printExpression ~customLayout (e : Parsetree.expression) cmtTbl =
     | Pexp_lazy expr ->
       let rhs =
         let doc = printExpressionWithComments ~customLayout expr cmtTbl in
-        match Parens.lazyOrAssertExprRhs expr with
+        match Parens.lazyOrAssertOrAwaitExprRhs expr with
         | Parens.Parenthesized -> addParens doc
         | Braced braces -> printBraces doc expr braces
         | Nothing -> doc
@@ -278929,7 +278932,24 @@ and printExpression ~customLayout (e : Parsetree.expression) cmtTbl =
   in
   let exprWithAwait =
     if ParsetreeViewer.hasAwaitAttribute e.pexp_attributes then
-      Doc.concat [Doc.text "await "; printedExpression]
+      let rhs =
+        match
+          Parens.lazyOrAssertOrAwaitExprRhs
+            {
+              e with
+              pexp_attributes =
+                List.filter
+                  (function
+                    | {Location.txt = "res.await" | "ns.braces"}, _ -> false
+                    | _ -> true)
+                  e.pexp_attributes;
+            }
+        with
+        | Parens.Parenthesized -> addParens printedExpression
+        | Braced braces -> printBraces printedExpression e braces
+        | Nothing -> printedExpression
+      in
+      Doc.concat [Doc.text "await "; rhs]
     else printedExpression
   in
   let shouldPrintItsOwnAttributes =
@@ -279327,11 +279347,7 @@ and printBinaryExpression ~customLayout (expr : Parsetree.expression) cmtTbl =
                 {
                   expr with
                   pexp_attributes =
-                    List.filter
-                      (fun attr ->
-                        match attr with
-                        | {Location.txt = "ns.braces"}, _ -> false
-                        | _ -> true)
+                    ParsetreeViewer.filterPrintableAttributes
                       expr.pexp_attributes;
                 }
             with