2 files changed, 8 insertions, 0 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml
index 404d8aa..fb5a7b3 100644
--- a/lib/Utilities.ml
+++ b/lib/Utilities.ml
@@ -104,3 +104,7 @@ module Atomic = struct
     then Ok atom
     else mswap atom f
 end
+
+module Fun = struct
+  let ( |.| ) = Fun.compose
+end
diff --git a/lib/Utilities.mli b/lib/Utilities.mli
index 11c4487..2b9591c 100644
--- a/lib/Utilities.mli
+++ b/lib/Utilities.mli
@@ -34,3 +34,7 @@ module FingerTree : sig
 
   val join : string BatFingerTree.t -> string -> string
 end
+
+module Fun : sig
+  val ( |.| ) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
+end