Print attributes in punned record labels.

This is now produced by the printer but is a parsing error:
```rescript
| {@optional name, x: 3} => 4242
```

Author: cristianoc

src/res_printer.ml

@@ -2342,9 +2342,10 @@ and printPatternRecordRow row cmtTbl =
   match row with
   (* punned {x}*)
   | ( ({Location.txt = Longident.Lident ident} as longident),
-      {Parsetree.ppat_desc = Ppat_var {txt; _}} )
+      {Parsetree.ppat_desc = Ppat_var {txt; _}; ppat_attributes} )
     when ident = txt ->
-    printLidentPath longident cmtTbl
+    Doc.concat
+      [printAttributes ppat_attributes cmtTbl; printLidentPath longident cmtTbl]
   | longident, pattern ->
     let locForComments =
       {longident.loc with loc_end = pattern.Parsetree.ppat_loc.loc_end}
@@ -4646,7 +4647,11 @@ and printRecordRow (lbl, expr) cmtTbl punningAllowed =
       | Pexp_ident {txt = Lident key; loc = _keyLoc}
         when punningAllowed && Longident.last lbl.txt = key ->
         (* print punned field *)
-        printLidentPath lbl cmtTbl
+        Doc.concat
+          [
+            printAttributes expr.pexp_attributes cmtTbl;
+            printLidentPath lbl cmtTbl;
+          ]
       | _ ->
         Doc.concat
           [

tests/parsing/grammar/expressions/record.res

@@ -31,4 +31,5 @@ let z = name => { name : @optional name, x: 3}
 let _ = switch z {
   | {x: @optional None, y: @optional None, z: @optional None} => 11
   | {name:  @optional name, x: 3} => 42
+//  | {@optional name, x: 3} => 4242
 }

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

@@ -76,9 +76,10 @@ let r = {a /* a */, b /* b */}
 
 let r = {x: @optional None, y: @optional None, z: @optional None}
 
-let z = name => {name, x: 3}
+let z = name => {@optional name, x: 3}
 
 let _ = switch z {
 | {x: @optional None, y: @optional None, z: @optional None} => 11
-| {name, x: 3} => 42
+| {@optional name, x: 3} => 42
+| {name: @optional dd, x: 3} => 42
 }

tests/printer/expr/record.res

@@ -71,4 +71,5 @@ let z = name => { name : @optional name, x: 3}
 let _ = switch z {
   | {x: @optional None, y: @optional None, z: @optional None} => 11
   | {name:  @optional name, x: 3} => 42
+  | {name:  @optional dd, x: 3} => 42
 }