Printing pipe eats attributes.

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

@@ -0,0 +1,2 @@
+let ok = @foo optionMap(name, x => x)
+let bad = @foo name->optionMap(x => x)

tests/printer/expr/pipe.res

@@ -0,0 +1,2 @@
+let ok = @foo (optionMap(name, x => x))
+let bad = @foo (name->optionMap(x => x))