@@ -280,7 +280,7 @@ let operator_precedence operator =
280
280
| "&&" -> 3
281
281
| "^" -> 4
282
282
| "&" -> 5
283
- | "==" | "===" | "<" | ">" | "!=" | "<>" | "!==" | "<=" | ">=" | "|>" -> 6
283
+ | "==" | "===" | "<" | ">" | "!=" | "<>" | "!==" | "<=" | ">=" -> 6
284
284
| "<<" | ">>" | ">>>" -> 7
285
285
| "+" | "+." | "-" | "-." | "++" -> 8
286
286
| "*" | "*." | "/" | "/." | "%" -> 9
@@ -317,8 +317,8 @@ let is_unary_bitnot_expression expr =
317
317
let is_binary_operator operator =
318
318
match operator with
319
319
| " :=" | " ||" | " &&" | " ==" | " ===" | " <" | " >" | " !=" | " !==" | " <=" | " >="
320
- | " |> " | " +" | " +." | " -" | " -." | " ++" | " *" | " *." | " /" | " /." | " **"
321
- | "->" | " <>" | "%" | "&" | "^" | "<<" | ">>" | ">>>" ->
320
+ | "+" | "+." | "-" | "-." | "++" | "*" | "*." | "/" | "/." | "**" | "-> "
321
+ | "<>" | "%" | "&" | "^" | "<<" | ">>" | ">>>" ->
322
322
true
323
323
| _ -> false
324
324
@@ -715,7 +715,7 @@ let is_single_pipe_expr expr =
715
715
match expr.pexp_desc with
716
716
| Pexp_apply
717
717
{
718
- funct = {pexp_desc = Pexp_ident {txt = Longident. Lident ( " ->" | " |> " ) }};
718
+ funct = {pexp_desc = Pexp_ident {txt = Longident. Lident " ->" }};
719
719
args = [(Nolabel , _operand1); (Nolabel , _operand2)];
720
720
} ->
721
721
true
@@ -724,7 +724,7 @@ let is_single_pipe_expr expr =
724
724
match expr.pexp_desc with
725
725
| Pexp_apply
726
726
{
727
- funct = {pexp_desc = Pexp_ident {txt = Longident. Lident ( " ->" | " |> " ) }};
727
+ funct = {pexp_desc = Pexp_ident {txt = Longident. Lident " ->" }};
728
728
args = [(Nolabel , operand1); (Nolabel , _operand2)];
729
729
}
730
730
when not (is_pipe_expr operand1) ->
0 commit comments