Fix issue with patterns with parens eat attributes.

Related: #585

Author: cristianoc

src/res_core.ml

@@ -1032,7 +1032,11 @@ let rec parsePattern ?(alias = true) ?(or_ = true) p =
         | _ ->
           Parser.expect Rparen p;
           let loc = mkLoc startPos p.prevEndPos in
-          {pat with ppat_loc = loc}))
+          {
+            pat with
+            ppat_loc = loc;
+            ppat_attributes = attrs @ pat.Parsetree.ppat_attributes;
+          }))
     | Lbracket -> parseArrayPattern ~attrs p
     | Lbrace -> parseRecordPattern ~attrs p
     | Underscore ->

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

@@ -23,7 +23,7 @@ let z name = { name = ((name)[@optional ]); x = 3 }
 let z name = { name; x = ((x)[@optional ]) }
 let _ =
   match z with
-  | { x = ((None)[@optional ]); y = ((None)[@optional ]); z = (None : tt) }
-      -> 11
+  | { x = ((None)[@optional ]); y = ((None)[@optional ]);
+      z = (((None : tt))[@optional ]) } -> 11
   | { name = ((name)[@optional ]); x = 3 } -> 42
   | { name = ((name)[@optional ]); x = 3 } -> 4242

tests/parsing/grammar/expressions/record.res

@@ -36,4 +36,4 @@ let _ = switch z {
   | {x: @optional None, y: @optional None, z: @optional (None:tt)} => 11
   | {name:  @optional name, x: 3} => 42
   | {@optional name, x: 3} => 4242
-}
+}

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

@@ -83,7 +83,7 @@ let z = name => {@optional name, x: 3}
 let z = name => {name, @optional x}
 
 let _ = switch z {
-| {x: @optional None, y: @optional None, z: (None: tt)} => 11
+| {x: @optional None, y: @optional None, z: (@optional None: tt)} => 11
 | {@optional name, x: 3} => 42
 | {name: @optional dd, x: 3} => 42
 }

tests/printer/expr/record.res

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