mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
Apply suggestions from code review
This commit is contained in:
parent
c248d9801c
commit
01155686bf
3 changed files with 3 additions and 1 deletions
|
|
@ -109,7 +109,7 @@ end) : sig
|
||||||
(** Kleisli composition. Monadic equivalent of [compose]. *)
|
(** Kleisli composition. Monadic equivalent of [compose]. *)
|
||||||
|
|
||||||
val ( >|= ) : 'a t -> ('a -> 'b) -> 'b t
|
val ( >|= ) : 'a t -> ('a -> 'b) -> 'b t
|
||||||
(** Mondaic [map]. *)
|
(** Monadic [map]. *)
|
||||||
|
|
||||||
val ( >>= ) : 'a t -> ('a -> 'b t) -> 'b t
|
val ( >>= ) : 'a t -> ('a -> 'b t) -> 'b t
|
||||||
(** Monadic [bind]. *)
|
(** Monadic [bind]. *)
|
||||||
|
|
|
||||||
|
|
@ -185,6 +185,7 @@ module Infix : sig
|
||||||
|
|
||||||
val ( >=> ) : ('a -> 'b t) -> ('b -> 'c t) -> ('a -> 'c t)
|
val ( >=> ) : ('a -> 'b t) -> ('b -> 'c t) -> ('a -> 'c t)
|
||||||
(** Monadic [k_compose]. *)
|
(** Monadic [k_compose]. *)
|
||||||
|
|
||||||
val ( <=< ) : ('b -> 'c t) -> ('a -> 'b t) -> ('a -> 'c t)
|
val ( <=< ) : ('b -> 'c t) -> ('a -> 'b t) -> ('a -> 'c t)
|
||||||
(** Reverse monadic [k_compose]. *)
|
(** Reverse monadic [k_compose]. *)
|
||||||
end
|
end
|
||||||
|
|
|
||||||
|
|
@ -206,6 +206,7 @@ module Infix : sig
|
||||||
|
|
||||||
val ( >=> ) : ('a -> ('b, 'err) t) -> ('b -> ('c, 'err) t) -> ('a -> ('c, 'err) t)
|
val ( >=> ) : ('a -> ('b, 'err) t) -> ('b -> ('c, 'err) t) -> ('a -> ('c, 'err) t)
|
||||||
(** Monadic [k_compose]. *)
|
(** Monadic [k_compose]. *)
|
||||||
|
|
||||||
val ( <=< ) : ('b -> ('c, 'err) t) -> ('a -> ('b, 'err) t) -> ('a -> ('c, 'err) t)
|
val ( <=< ) : ('b -> ('c, 'err) t) -> ('a -> ('b, 'err) t) -> ('a -> ('c, 'err) t)
|
||||||
(** Reverse monadic [k_compose]. *)
|
(** Reverse monadic [k_compose]. *)
|
||||||
end
|
end
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue