|> combinator for Enum

This commit is contained in:
Simon Cruanes 2013-03-19 00:24:12 +01:00
parent 135989d55f
commit f3206ca019
2 changed files with 3 additions and 0 deletions

View file

@ -193,4 +193,6 @@ module Infix = struct
let (>>=) e f = flatMap f e
let (--) = int_range
let (|>) x f = f x
end

View file

@ -97,4 +97,5 @@ module Infix : sig
val (@@) : 'a t -> 'a t -> 'a t
val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
val (--) : int -> int -> int t
val (|>) : 'a -> ('a -> 'b) -> 'b
end