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 *)
|
||||
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} **********************************************)
|
||||
|
||||
(** A {!List.iter} in the monad *)
|
||||
|
Loading…
Reference in New Issue
Block a user