Commits

Anonymous committed 7a6958d

IO_Lwt: + Ops

Comments (0)

Files changed (1)

 value bind = Lwt.(=<<);
 
 value bind_rev = Lwt.bind;
-value ( >>= ) = Lwt.bind;
 
+module Ops =
+  struct
+    value ( >>= ) = Lwt.bind;
+    value ( =<< ) = Lwt.(=<<);
+  end
+;
+
+include Ops;
 
 value error = Lwt.fail;