Fir reformatting issue for -> and |>.

Author: cristianoc

CHANGELOG.md

@@ -17,6 +17,10 @@
 - Initial support for JSX V4, still work in progress.
   - :boom: when V4 is activated, at most one component is allowed for each module.
 
+#### :bug: Bug Fix
+
+- Fix issue where the printer would omit attributes for `->` and `|>` https://github.com/rescript-lang/syntax/pull/629
+
 ## ReScript 10.0
 
 - Fix printing for inline nullary functor types [#477](https://github.com/rescript-lang/syntax/pull/477)

src/res_printer.ml

@@ -3658,6 +3658,7 @@ and printBinaryExpression ~customLayout (expr : Parsetree.expression) cmtTbl =
     Doc.group
       (Doc.concat
          [
+           printAttributes ~customLayout expr.pexp_attributes cmtTbl;
            lhsDoc;
            (match (lhsHasCommentBelow, op) with
            | true, "|." -> Doc.concat [Doc.softLine; Doc.text "->"]

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

@@ -1,3 +1,3 @@
-let s1 = x->foo
+let s1 = @ann x->foo
 let s2 = @ann foo(x)
-let s3 = x |> foo
+let s3 = @ann x |> foo