sig
type ('a, 'b) t = ('a, 'b) Result.t = Ok of 'a | Error of 'b
type ('a, 'b) sexpable = ('a, 'b) t
val sexp_of_t :
('a -> Sexplib.Sexp.t) ->
('b -> Sexplib.Sexp.t) -> ('a, 'b) sexpable -> Sexplib.Sexp.t
val t_of_sexp :
(Sexplib.Sexp.t -> 'a) ->
(Sexplib.Sexp.t -> 'b) -> Sexplib.Sexp.t -> ('a, 'b) sexpable
type ('a, 'b) binable = ('a, 'b) t
val bin_size_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Size.sizer2
val bin_write_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Map_to_safe.writer2
val bin_write_t_ :
('a, 'b, ('a, 'b) binable) Bin_prot.Unsafe_write_c.writer2
val bin_read_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Map_to_safe.reader2
val bin_read_t_ : ('a, 'b, ('a, 'b) binable) Bin_prot.Unsafe_read_c.reader2
val bin_read_t__ :
('a, 'b, int -> ('a, 'b) binable) Bin_prot.Unsafe_read_c.reader2
val bin_writer_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.writer
val bin_reader_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.reader
val bin_t : ('a, 'b, ('a, 'b) binable) Bin_prot.Type_class.S2.t
type ('a, 'b) monad = ('a, 'b) t
val ( >>= ) : ('a, 'b) monad -> ('a -> ('c, 'b) monad) -> ('c, 'b) monad
val ( >>| ) : ('a, 'b) monad -> ('a -> 'c) -> ('c, 'b) monad
module Monad_infix :
sig
type ('a, 'b) monad = ('a, 'b) monad
val ( >>= ) :
('a, 'b) monad -> ('a -> ('c, 'b) monad) -> ('c, 'b) monad
val ( >>| ) : ('a, 'b) monad -> ('a -> 'c) -> ('c, 'b) monad
end
val bind : ('a, 'b) monad -> ('a -> ('c, 'b) monad) -> ('c, 'b) monad
val return : 'a -> ('a, 'b) monad
val map : ('a, 'b) monad -> f:('a -> 'c) -> ('c, 'b) monad
val join : (('a, 'b) monad, 'b) monad -> ('a, 'b) monad
val ignore : ('a, 'b) monad -> (unit, 'b) monad
val fail : 'a -> ('b, 'a) t
val is_ok : ('a, 'b) t -> bool
val is_error : ('a, 'b) t -> bool
val ok : ('a, 'b) t -> 'a option
val error : ('a, 'b) t -> 'b option
val iter : ('a, 'b) t -> f:('a -> unit) -> unit
val map : ('a, 'b) t -> f:('a -> 'c) -> ('c, 'b) t
val call : f:('a -> unit, 'b) t -> 'a -> unit
val apply : f:('a -> 'b, 'c) t -> 'a -> ('b, 'c) t
val ok_fst : ('a, 'b) t -> [ `Fst of 'a | `Snd of 'b ]
val trywith : (unit -> 'a) -> ('a, exn) t
end