Backwards-compatible check for braces attribute.

Author: cristianoc

analysis/tests/src/expected/Xform.res.txt

@@ -41,14 +41,15 @@ Hit: Add braces to function
 {"start": {"line": 26, "character": 0}, "end": {"line": 32, "character": 3}}
 newText:
 <--here
-let foo = x =>
+let foo = x => {
   //      ^xfm
   @ns.braces
   switch x {
   | None => 33
   | Some(q) => q.T.a + 1
   //     ^xfm
   }
+}
 
 Xform src/Xform.res 34:21
 Hit: Add type annotation
@@ -71,15 +72,19 @@ Hit: Add braces to function
 {"start": {"line": 48, "character": 0}, "end": {"line": 48, "character": 25}}
 newText:
 <--here
-let noBraces = () => @ns.braces name
+let noBraces = () => {
+  @ns.braces name
+}
 
 Xform src/Xform.res 52:34
 Hit: Add braces to function
 {"start": {"line": 51, "character": 0}, "end": {"line": 54, "character": 1}}
 newText:
 <--here
 let nested = () => {
-  let _noBraces = (_x, _y, _z) => @ns.braces "someNewFunc"
+  let _noBraces = (_x, _y, _z) => {
+    @ns.braces "someNewFunc"
+  }
   //                              ^xfm
 }
 
@@ -88,10 +93,11 @@ Hit: Add braces to function
 {"start": {"line": 58, "character": 4}, "end": {"line": 62, "character": 7}}
 newText:
     <--here
-    let foo = (_x, y, _z) =>
+    let foo = (_x, y, _z) => {
       @ns.braces
       switch y {
       | #some => 3
       | #stuff => 4
       }
+    }
 

analysis/vendor/res_outcome_printer/res_parsetree_viewer.ml

@@ -193,7 +193,7 @@ let funExpr expr =
 
 let processBracesAttr expr =
   match expr.pexp_attributes with
-  | (({txt = "res.braces"}, _) as attr) :: attrs ->
+  | (({txt = "res.braces" | "ns.braces"}, _) as attr) :: attrs ->
     (Some attr, {expr with pexp_attributes = attrs})
   | _ -> (None, expr)