From f3206ca019ea6e22ca261784d14e8c22a37d1a71 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 19 Mar 2013 00:24:12 +0100
Subject: [PATCH] |> combinator for Enum

---
 enum.ml  | 2 ++
 enum.mli | 1 +
 2 files changed, 3 insertions(+)

diff --git a/enum.ml b/enum.ml
index 8b19620d..b30c8c06 100644
--- a/enum.ml
+++ b/enum.ml
@@ -193,4 +193,6 @@ module Infix = struct
   let (>>=) e f = flatMap f e
 
   let (--) = int_range
+
+  let (|>) x f = f x
 end
diff --git a/enum.mli b/enum.mli
index 33db8e33..5abc9f30 100644
--- a/enum.mli
+++ b/enum.mli
@@ -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