@@ -3527,8 +3527,8 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
3527
3527
Doc. concat
3528
3528
[spacingBeforeOperator; Doc. text operatorTxt; spacingAfterOperator]
3529
3529
in
3530
- let printOperand ~isLhs ~isMultiLine expr parentOperator =
3531
- let rec flatten ~isLhs ~isMultiLine expr parentOperator =
3530
+ let printOperand ~isLhs ~isMultiline expr parentOperator =
3531
+ let rec flatten ~isLhs ~isMultiline expr parentOperator =
3532
3532
if ParsetreeViewer. isBinaryExpression expr then
3533
3533
match expr with
3534
3534
| {
@@ -3541,7 +3541,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
3541
3541
ParsetreeViewer. flattenableOperators parentOperator operator
3542
3542
&& not (ParsetreeViewer. hasAttributes expr.pexp_attributes)
3543
3543
then
3544
- let leftPrinted = flatten ~is Lhs:true ~is MultiLine left operator in
3544
+ let leftPrinted = flatten ~is Lhs:true ~is Multiline left operator in
3545
3545
let rightPrinted =
3546
3546
let rightPrinteableAttrs, rightInternalAttrs =
3547
3547
ParsetreeViewer. partitionPrintableAttributes
@@ -3586,7 +3586,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
3586
3586
]
3587
3587
else
3588
3588
match operator with
3589
- | ("|." | "|.u" ) when isMultiLine ->
3589
+ | ("|." | "|.u" ) when isMultiline ->
3590
3590
(* If the pipe-chain is written over multiple lines, break automatically
3591
3591
* `let x = a->b->c -> same line, break when line-width exceeded
3592
3592
* `let x = a->
@@ -3679,7 +3679,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
3679
3679
| Braced braces -> printBraces doc expr braces
3680
3680
| Nothing -> doc)
3681
3681
in
3682
- flatten ~is Lhs ~is MultiLine expr parentOperator
3682
+ flatten ~is Lhs ~is Multiline expr parentOperator
3683
3683
in
3684
3684
match expr.pexp_desc with
3685
3685
| Pexp_apply
@@ -3693,8 +3693,8 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
3693
3693
|| ParsetreeViewer. isBinaryExpression rhs
3694
3694
|| printAttributes ~state expr.pexp_attributes cmtTbl <> Doc. nil) ->
3695
3695
let lhsHasCommentBelow = hasCommentBelow cmtTbl lhs.pexp_loc in
3696
- let lhsDoc = printOperand ~is Lhs:true ~is MultiLine :false lhs op in
3697
- let rhsDoc = printOperand ~is Lhs:false ~is MultiLine :false rhs op in
3696
+ let lhsDoc = printOperand ~is Lhs:true ~is Multiline :false lhs op in
3697
+ let rhsDoc = printOperand ~is Lhs:false ~is Multiline :false rhs op in
3698
3698
Doc. group
3699
3699
(Doc. concat
3700
3700
[
@@ -3711,7 +3711,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
3711
3711
| Pexp_apply
3712
3712
( {pexp_desc = Pexp_ident {txt = Longident. Lident operator}},
3713
3713
[(Nolabel , lhs); (Nolabel , rhs)] ) ->
3714
- let isMultiLine =
3714
+ let isMultiline =
3715
3715
lhs.pexp_loc.loc_start.pos_lnum < rhs.pexp_loc.loc_start.pos_lnum
3716
3716
in
3717
3717
@@ -3720,7 +3720,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
3720
3720
let rhsDoc =
3721
3721
printOperand
3722
3722
~is Lhs:(ParsetreeViewer. isRhsBinaryOperator operator)
3723
- ~is MultiLine rhs operator
3723
+ ~is Multiline rhs operator
3724
3724
in
3725
3725
Doc. concat
3726
3726
[
@@ -3740,7 +3740,7 @@ and printBinaryExpression ~state (expr : Parsetree.expression) cmtTbl =
3740
3740
[
3741
3741
printOperand
3742
3742
~is Lhs:(not @@ ParsetreeViewer. isRhsBinaryOperator operator)
3743
- ~is MultiLine lhs operator;
3743
+ ~is Multiline lhs operator;
3744
3744
right;
3745
3745
])
3746
3746
in
0 commit comments