sig
module type Basic = Basic
module type Basic2 = Basic2
module type Infix = Infix
module type Infix2 = Infix2
module type S = S
module type S2 = S2
module Make :
functor (X : Basic) ->
sig
val ( >>= ) : 'a X.t -> ('a -> 'b X.t) -> 'b X.t
val ( >>| ) : 'a X.t -> ('a -> 'b) -> 'b X.t
module Monad_infix :
sig
val ( >>= ) : 'a X.t -> ('a -> 'b X.t) -> 'b X.t
val ( >>| ) : 'a X.t -> ('a -> 'b) -> 'b X.t
end
val bind : 'a X.t -> ('a -> 'b X.t) -> 'b X.t
val return : 'a -> 'a X.t
val map : 'a X.t -> f:('a -> 'b) -> 'b X.t
val join : 'a X.t X.t -> 'a X.t
val ignore_m : 'a X.t -> unit X.t
val all : 'a X.t list -> 'a list X.t
val all_ignore : unit X.t list -> unit X.t
end
module Make2 :
functor (X : Basic2) ->
sig
val ( >>= ) : ('a, 'e) X.t -> ('a -> ('b, 'e) X.t) -> ('b, 'e) X.t
val ( >>| ) : ('a, 'e) X.t -> ('a -> 'b) -> ('b, 'e) X.t
module Monad_infix :
sig
val ( >>= ) :
('a, 'e) X.t -> ('a -> ('b, 'e) X.t) -> ('b, 'e) X.t
val ( >>| ) : ('a, 'e) X.t -> ('a -> 'b) -> ('b, 'e) X.t
end
val bind : ('a, 'e) X.t -> ('a -> ('b, 'e) X.t) -> ('b, 'e) X.t
val return : 'a -> ('a, 'b) X.t
val map : ('a, 'e) X.t -> f:('a -> 'b) -> ('b, 'e) X.t
val join : (('a, 'e) X.t, 'e) X.t -> ('a, 'e) X.t
val ignore_m : ('a, 'e) X.t -> (unit, 'e) X.t
val all : ('a, 'e) X.t list -> ('a list, 'e) X.t
val all_ignore : (unit, 'e) X.t list -> (unit, 'e) X.t
end
module Ident :
sig
type 'a t = 'a
val ( >>= ) : 'a t -> ('a -> 'b t) -> 'b t
val ( >>| ) : 'a t -> ('a -> 'b) -> 'b t
module Monad_infix :
sig
val ( >>= ) : 'a t -> ('a -> 'b t) -> 'b t
val ( >>| ) : 'a t -> ('a -> 'b) -> 'b t
end
val bind : 'a t -> ('a -> 'b t) -> 'b t
val return : 'a -> 'a t
val map : 'a t -> f:('a -> 'b) -> 'b t
val join : 'a t t -> 'a t
val ignore_m : 'a t -> unit t
val all : 'a t list -> 'a list t
val all_ignore : unit t list -> unit t
end
end