Source

ocaml-iteratees / direct_IO.ml

Diff from to

direct_IO.ml

 
     value return : 'a -> m 'a;
     value bind : ('a -> m 'b) -> m 'a -> m 'b;
+    value bind_rev : m 'a -> ('a -> m 'b) -> m 'b;
     value catch : (unit -> m 'a) -> (exn -> m 'a) -> m 'a;
 
     value error : exn -> m 'a;
       ]
     ;
     value ( >>= ) m f = bind f m;
+    value bind_rev m f = bind f m;
 
     value catch f handler =
       match f () with