Eml and Haskell style pipelines in Standard ML

pipelines.sml

local
  (* http://mlton.org/InfixingOperators *)

  infix  3 <\     fun x <\ f = fn y => f (x, y)     (* Left section      *)
  infix  3 \>     fun f \> y = f y                  (* Left application  *)
  infixr 3 />     fun f /> y = fn x => f (x, y)     (* Right section     *)
  infixr 3 </     fun x </ f = f x                  (* Right application *)

in
  infix  2 o
  infix  0 :=

  infix  1 |>     val op|> = op</      (* Elm and Julia pipeline style *)
  infixr 1 $      val op$  = op\>      (* Haskell pipeline style       *)
end