Commit a972a513 authored by François Bobot's avatar François Bobot

Util : add |>

parent 89ba7416
......@@ -22,6 +22,7 @@ open Stdlib
(* useful combinators *)
let ($) f x = f x
let (|>) x f = f x
let const f _ = f
......
......@@ -22,6 +22,7 @@ open Stdlib
(** Useful functions *)
val ($) : ('a -> 'b) -> 'a -> 'b
val (|>) : 'a -> ('a -> 'b) -> 'b
val const : 'a -> 'b -> 'a
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment