module ToggleN: sig
.. end
ToggleN error checking is the same as Toggle, except
here you may specify a maximum number of failures that will
be reported. On the (n+1)th alert, final_fail_alert will be used to
generate the alert instead of fail_alert.
type (-'a, +'b)
t
val sexp_of_t : 'a -> 'b -> ('c, 'd) t -> Std_internal.Sexp.t
val create : assertion:('a -> bool) ->
fail_alert:('a -> 'b) ->
final_fail_alert:('a -> 'b) ->
success_alert:('a -> 'b) ->
max_consecutive_fail_alerts:int -> ('a, 'b) t
val check : ('a, 'b) t -> 'a -> 'b option
val state : ('a, 'b) t -> bool