Remove pipe last (|>) syntax

Author: cknitt

compiler/syntax/src/res_core.ml

@@ -2186,25 +2186,9 @@ and parse_binary_expr ?(context = OrdinaryExpr) ?a p prec =
       let b = parse_binary_expr ~context p token_prec in
       let loc = mk_loc a.Parsetree.pexp_loc.loc_start b.pexp_loc.loc_end in
       let expr =
-        match (token, b.pexp_desc) with
-        | ( BarGreater,
-            Pexp_apply {funct = fun_expr; args; partial; transformed_jsx} ) ->
-          {
-            b with
-            pexp_desc =
-              Pexp_apply
-                {
-                  funct = fun_expr;
-                  args = args @ [(Nolabel, a)];
-                  partial;
-                  transformed_jsx;
-                };
-          }
-        | BarGreater, _ -> Ast_helper.Exp.apply ~loc b [(Nolabel, a)]
-        | _ ->
-          Ast_helper.Exp.apply ~loc
-            (make_infix_operator p token start_pos end_pos)
-            [(Nolabel, a); (Nolabel, b)]
+        Ast_helper.Exp.apply ~loc
+          (make_infix_operator p token start_pos end_pos)
+          [(Nolabel, a); (Nolabel, b)]
       in
       Parser.eat_breadcrumb p;
       loop expr)

compiler/syntax/src/res_scanner.ml

@@ -820,9 +820,6 @@ let rec scan scanner =
       | '|' ->
         next2 scanner;
         Token.Lor
-      | '>' ->
-        next2 scanner;
-        Token.BarGreater
       | _ ->
         next scanner;
         Token.Bar)

compiler/syntax/src/res_token.ml

@@ -94,7 +94,6 @@ type t =
   | TemplateTail of string * Lexing.position
   | TemplatePart of string * Lexing.position
   | Backtick
-  | BarGreater
   | Try
   | DocComment of Location.t * string
   | ModuleComment of Location.t * string
@@ -109,7 +108,7 @@ let precedence = function
   | Caret -> 4
   | Band -> 5
   | Equal | EqualEqual | EqualEqualEqual | LessThan | GreaterThan | BangEqual
-  | BangEqualEqual | LessEqual | GreaterEqual | BarGreater ->
+  | BangEqualEqual | LessEqual | GreaterEqual ->
     6
   | LeftShift | RightShift | RightShiftUnsigned -> 7
   | Plus | PlusDot | Minus | MinusDot | PlusPlus -> 8
@@ -213,7 +212,6 @@ let to_string = function
   | TemplatePart (text, _) -> text ^ "${"
   | TemplateTail (text, _) -> "TemplateTail(" ^ text ^ ")"
   | Backtick -> "`"
-  | BarGreater -> "|>"
   | Try -> "try"
   | DocComment (_loc, s) -> "DocComment " ^ s
   | ModuleComment (_loc, s) -> "ModuleComment " ^ s