diff --git a/future.ml b/future.ml
index 3a2a2759..2657a822 100644
--- a/future.ml
+++ b/future.ml
@@ -524,3 +524,5 @@ module Infix = struct
   let (>>=) x f = flatMap f x
   let (>>) a f = andThen a f
 end
+
+include Infix
diff --git a/future.mli b/future.mli
index 01422020..48988002 100644
--- a/future.mli
+++ b/future.mli
@@ -142,7 +142,12 @@ val spawn_process : ?pool:Pool.t -> ?stdin:string -> cmd:string ->
 val sleep : ?pool:Pool.t -> float -> unit t
   (** Future that returns with success in the given amount of seconds *)
 
+
+
 module Infix : sig
   val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
   val (>>) : 'a t -> (unit -> 'b t) -> 'b t
 end
+
+val (>>=) : 'a t -> ('a -> 'b t) -> 'b t
+val (>>) : 'a t -> (unit -> 'b t) -> 'b t