Export Error_monad.fail_when to the protocol

This commit is contained in:
Benjamin Canou 2017-12-07 16:07:53 +01:00
parent e3e59f22be
commit 264b950f39

View File

@ -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 *)