Source

ocaml_monad_io / iO_Lwt.ml

Diff from to

File iO_Lwt.ml

 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;