Nit: isMultiLine -> isMultiline

Author: fhammerschmidt

jscomp/syntax/src/res_printer.ml

@@ -3527,8 +3527,8 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
     Doc.concat
       [spacingBeforeOperator; Doc.text operatorTxt; spacingAfterOperator]
   in
-  let printOperand ~isLhs ~isMultiLine expr parentOperator =
-    let rec flatten ~isLhs ~isMultiLine expr parentOperator =
+  let printOperand ~isLhs ~isMultiline expr parentOperator =
+    let rec flatten ~isLhs ~isMultiline expr parentOperator =
       if ParsetreeViewer.isBinaryExpression expr then
         match expr with
         | {
@@ -3541,7 +3541,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
             ParsetreeViewer.flattenableOperators parentOperator operator
             && not (ParsetreeViewer.hasAttributes expr.pexp_attributes)
           then
-            let leftPrinted = flatten ~isLhs:true ~isMultiLine left operator in
+            let leftPrinted = flatten ~isLhs:true ~isMultiline left operator in
             let rightPrinted =
               let rightPrinteableAttrs, rightInternalAttrs =
                 ParsetreeViewer.partitionPrintableAttributes
@@ -3586,7 +3586,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
                   ]
               else
                 match operator with
-                | ("|." | "|.u") when isMultiLine ->
+                | ("|." | "|.u") when isMultiline ->
                   (* If the pipe-chain is written over multiple lines, break automatically
                    * `let x = a->b->c -> same line, break when line-width exceeded
                    * `let x = a->
@@ -3679,7 +3679,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
           | Braced braces -> printBraces doc expr braces
           | Nothing -> doc)
     in
-    flatten ~isLhs ~isMultiLine expr parentOperator
+    flatten ~isLhs ~isMultiline expr parentOperator
   in
   match expr.pexp_desc with
   | Pexp_apply
@@ -3693,8 +3693,8 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
            || ParsetreeViewer.isBinaryExpression rhs
            || printAttributes ~state expr.pexp_attributes cmtTbl <> Doc.nil) ->
     let lhsHasCommentBelow = hasCommentBelow cmtTbl lhs.pexp_loc in
-    let lhsDoc = printOperand ~isLhs:true ~isMultiLine:false lhs op in
-    let rhsDoc = printOperand ~isLhs:false ~isMultiLine:false rhs op in
+    let lhsDoc = printOperand ~isLhs:true ~isMultiline:false lhs op in
+    let rhsDoc = printOperand ~isLhs:false ~isMultiline:false rhs op in
     Doc.group
       (Doc.concat
          [
@@ -3711,7 +3711,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
   | Pexp_apply
       ( {pexp_desc = Pexp_ident {txt = Longident.Lident operator}},
         [(Nolabel, lhs); (Nolabel, rhs)] ) ->
-    let isMultiLine =
+    let isMultiline =
       lhs.pexp_loc.loc_start.pos_lnum < rhs.pexp_loc.loc_start.pos_lnum
     in
 
@@ -3720,7 +3720,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
         let rhsDoc =
           printOperand
             ~isLhs:(ParsetreeViewer.isRhsBinaryOperator operator)
-            ~isMultiLine rhs operator
+            ~isMultiline rhs operator
         in
         Doc.concat
           [
@@ -3740,7 +3740,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
            [
              printOperand
                ~isLhs:(not @@ ParsetreeViewer.isRhsBinaryOperator operator)
-               ~isMultiLine lhs operator;
+               ~isMultiline lhs operator;
              right;
            ])
     in