Export Error_monad.fail_when
to the protocol
This commit is contained in:
parent
e3e59f22be
commit
264b950f39
@ -90,6 +90,9 @@ val trace : error -> 'b tzresult Lwt.t -> 'b tzresult Lwt.t
|
|||||||
(** Erroneous return on failed assertion *)
|
(** Erroneous return on failed assertion *)
|
||||||
val fail_unless : bool -> error -> unit tzresult Lwt.t
|
val fail_unless : bool -> error -> unit tzresult Lwt.t
|
||||||
|
|
||||||
|
(** Erroneous return on successful assertion *)
|
||||||
|
val fail_when : bool -> error -> unit tzresult Lwt.t
|
||||||
|
|
||||||
(** {2 In-monad list iterators} **********************************************)
|
(** {2 In-monad list iterators} **********************************************)
|
||||||
|
|
||||||
(** A {!List.iter} in the monad *)
|
(** A {!List.iter} in the monad *)
|
||||||
|
Loading…
Reference in New Issue
Block a user