Linebreak printer for pipe chains

jscomp/syntax/src/res_printer.ml

@@ -3585,12 +3585,25 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
                     Doc.rparen;
                   ]
               else
-                Doc.concat
-                  [
-                    leftPrinted;
-                    printBinaryOperator ~inlineRhs:false operator;
-                    rightPrinted;
-                  ]
+                match operator with
+                | "|." | "|.u" ->
+                  Doc.concat
+                    [
+                      leftPrinted;
+                      Doc.breakableGroup ~forceBreak:true
+                        (Doc.concat
+                           [
+                             printBinaryOperator ~inlineRhs:false operator;
+                             rightPrinted;
+                           ]);
+                    ]
+                | _ ->
+                  Doc.concat
+                    [
+                      leftPrinted;
+                      printBinaryOperator ~inlineRhs:false operator;
+                      rightPrinted;
+                    ]
             in
 
             let doc =

jscomp/syntax/tests/conversion/reason/expected/attributes.res.txt

@@ -12,7 +12,10 @@ module Color: {
 
 @send external map: (array<'a>, 'a => 'b) => array<'b> = "map"
 @send external filter: (array<'a>, 'a => 'b) => array<'b> = "filter"
-list{1, 2, 3}->map(a => a + 1)->filter(a => modulo(a, 2) == 0)->Js.log
+list{1, 2, 3}
+->map(a => a + 1)
+->filter(a => modulo(a, 2) == 0)
+->Js.log
 
 type t
 @new external make: unit => t = "DOMParser"

jscomp/syntax/tests/conversion/reason/expected/bracedJsx.res.txt

@@ -99,7 +99,11 @@ let make = () => {
     switch containerRef.current->Js.Nullable.toOption {
     | Some(containerRef) =>
       open Webapi.Dom
-      containerRef->Element.setScrollTop(containerRef->Element.scrollHeight->float_of_int)
+      containerRef->Element.setScrollTop(
+        containerRef
+        ->Element.scrollHeight
+        ->float_of_int,
+      )
     | None => ()
     }
     None

jscomp/syntax/tests/conversion/reason/expected/braces.res.txt

@@ -3,7 +3,10 @@ let f = () => id
 
 if isArray(children) {
   // Scenario 1
-  let code = children->asStringArray->Js.Array2.joinWith("")
+  let code =
+    children
+    ->asStringArray
+    ->Js.Array2.joinWith("")
   <InlineCode> {code->s} </InlineCode>
 } else if isObject(children) {
   // Scenario 2

jscomp/syntax/tests/conversion/reason/expected/fastPipe.res.txt

@@ -1,18 +1,32 @@
-a->f(b, c)->g(d, e)
+a
+->f(b, c)
+->g(d, e)
 
 Element.querySelectorAll(selector, element)
 ->NodeList.toArray
 ->Array.keepMap(Element.ofNode)
 ->Array.getBy(node => node->Element.textContent === content)
 
-let x = @attr ((@attr2 a)->f(b)->c(d))
+let x =
+  @attr
+  (
+    (@attr2 a)
+    ->f(b)
+    ->c(d)
+  )
 
 5->doStuff(3, _, 7)
 
 (event->target)["value"]
 
-(Route.urlToRoute(url)->ChangeView->self).send
-Route.urlToRoute(url)->ChangeView->self.send
+(
+  Route.urlToRoute(url)
+  ->ChangeView
+  ->self
+).send
+Route.urlToRoute(url)
+->ChangeView
+->self.send
 
 let aggregateTotal = (forecast, ~audienceType) =>
   Js.Nullable.toOption(forecast["audiences"])

jscomp/syntax/tests/ppx/react/expected/interfaceWithRef.res.txt

@@ -3,7 +3,10 @@ let make = (
   {x, _}: props<string, ReactDOM.Ref.currentDomRef>,
   ref: Js.Nullable.t<ReactDOM.Ref.currentDomRef>,
 ) => {
-  let _ = ref->Js.Nullable.toOption->Belt.Option.map(ReactDOM.Ref.domRef)
+  let _ =
+    ref
+    ->Js.Nullable.toOption
+    ->Belt.Option.map(ReactDOM.Ref.domRef)
   React.string(x)
 }
 let make = React.forwardRef({

jscomp/syntax/tests/printer/expr/expected/binary.res.txt

@@ -453,10 +453,16 @@ a && (b && (c && d))
 (a && b) || c
 a && (b || c)
 
-x->(y->z)
-x->(y->(z->w))
+x
+->(y
+->z)
+x
+->(y
+->(z->w))
 x->(y && (w && z))
-x->y->z
+x
+->y
+->z
 
 x |> y |> z
 x |> (y |> z)

jscomp/syntax/tests/printer/expr/expected/callback.res.txt

@@ -36,7 +36,10 @@ let make = (arr, ~compare) => {
 let tbl = data->Js.Array2.reduce((map, curr) => {
   let (website, user) = curr
   if map->Belt.Map.String.has(website) {
-    let set = map->Belt.Map.String.getExn(website)->Belt.Set.Int.add(user)
+    let set =
+      map
+      ->Belt.Map.String.getExn(website)
+      ->Belt.Set.Int.add(user)
     map->Belt.Map.String.set(website, set)
   } else {
     let set = Belt.Set.Int.empty->Belt.Set.Int.add(user)
@@ -50,7 +53,10 @@ let _ = {
     let tbl = data->Js.Array2.reduce((map, curr) => {
       let (website, user) = curr
       if map->Belt.Map.String.has(website) {
-        let set = map->Belt.Map.String.getExn(website)->Belt.Set.Int.add(user)
+        let set =
+          map
+          ->Belt.Map.String.getExn(website)
+          ->Belt.Set.Int.add(user)
         map->Belt.Map.String.set(website, set)
       } else {
         let set = Belt.Set.Int.empty->Belt.Set.Int.add(user)
@@ -65,7 +71,10 @@ let trees =
     combination->Belt.Array.reduceU(Nil, (. tree, curr) => tree->insert(curr))
   )
 
-let set = mapThatHasAVeryLongName->Belt.Map.String.getExn(website)->Belt.Set.Int.add(user)
+let set =
+  mapThatHasAVeryLongName
+  ->Belt.Map.String.getExn(website)
+  ->Belt.Set.Int.add(user)
 
 let add = (y: coll, e: key) =>
   if List.exists(x => eq(x, e), y) {
@@ -215,13 +224,16 @@ let f = () => {
   </div>
 }
 
-myPromise->Js.Promise.then_(value => {
+myPromise
+->Js.Promise.then_(value => {
   Js.log(value)
   Js.Promise.resolve(value + 2)
-}, _)->Js.Promise.then_(value => {
+}, _)
+->Js.Promise.then_(value => {
   Js.log(value)
   Js.Promise.resolve(value + 3)
-}, _)->Js.Promise.catch(err => {
+}, _)
+->Js.Promise.catch(err => {
   Js.log2("Failure!!", err)
   Js.Promise.resolve(-2)
 }, _)

jscomp/syntax/tests/printer/expr/expected/firstClassModule.res.txt

@@ -8,21 +8,29 @@ let x = @attr module(Foo)
 let x = @attr module(Foo: FirstClass)
 
 module(Teenager)[0]
-module(Teenager)->age->Js.log
+module(Teenager)
+->age
+->Js.log
 module(Teenager)[0]->Js.log
-module(Teenager)->age->isAdult
+module(Teenager)
+->age
+->isAdult
   ? Js.log("has responsibilities")
   : Js.log("can play in the playground")
 module(Streets)[0]->isExpensive ? Js.log("big money") : Js.log("affordable")
 
 let () = {
-  module(Teenager)->age->Js.log
+  module(Teenager)
+  ->age
+  ->Js.log
 }
 let () = {
   module(Teenager)[0]
 }
 let () = {
-  module(Teenager)->age->isAdult
+  module(Teenager)
+  ->age
+  ->isAdult
     ? Js.log("has responsibilities")
     : Js.log("can play in the playground")
 }
@@ -34,14 +42,20 @@ let () = {
   let a = 1
   let b = 2
   module(Teenager)[0]
-  module(Teenager)->age->Js.log
+  module(Teenager)
+  ->age
+  ->Js.log
 }
 
 let () = {
   let a = 1
   let b = 2
-  module(Teenager)->age->Js.log
-  module(Teenager)[0]->age->isAdult
+  module(Teenager)
+  ->age
+  ->Js.log
+  module(Teenager)[0]
+  ->age
+  ->isAdult
     ? Js.log("has responsibilities")
     : Js.log("can play in the playground")
 }

jscomp/syntax/tests/printer/expr/expected/jsx.res.txt

@@ -321,7 +321,9 @@ module App = {
   amount={
     // ->BN.new_("86400")
     // There are 86400 seconds in a day.
-    amount->BN.div(BN.new_("86400"))->BN.toString
+    amount
+    ->BN.div(BN.new_("86400"))
+    ->BN.toString
   }
 />
 

jscomp/syntax/tests/printer/other/expected/fatSlider.res.txt

@@ -50,7 +50,9 @@ let make = (~min=50, ~max=250, ~meterSuffix=?) => {
       />
     </div>
     <div className="meter text-4xl font-bold text-gray-600 mt-4">
-      {values[0]->Js.Int.toString->string}
+      {values[0]
+      ->Js.Int.toString
+      ->string}
       {meterSuffix->Belt.Option.getWithDefault(null)}
     </div>
   </div>

jscomp/syntax/tests/printer/other/expected/nesting.res.txt

@@ -41,9 +41,13 @@ let unitsCommands = state.units->Js.Array2.mapi((
             ),
             coordinates: {x: sparksX, y: sparksY, z: 0.},
           }
-          particlesToAdd->Js.Array2.push(spark)->ignore
+          particlesToAdd
+          ->Js.Array2.push(spark)
+          ->ignore
 
-          res->Js.Array2.push(Unit.CommandAttacked({damage: damage}))->ignore
+          res
+          ->Js.Array2.push(Unit.CommandAttacked({damage: damage}))
+          ->ignore
         }
       | _ => ()
       }

jscomp/syntax/tests/printer/other/expected/signaturePicker.res.txt

@@ -32,7 +32,9 @@ let make = () => {
       {options
       ->Belt.List.map(option =>
         <option key={option->TimeSignature.toString}>
-          {option->TimeSignature.toString->string}
+          {option
+          ->TimeSignature.toString
+          ->string}
         </option>
       )
       ->Belt.List.toArray