module Toggle:Module for 'toggle' error checking. This simply means multiple failures in a row do not call fail_alert multiple times. success_alert is called upon return from a failed state to a successful one.sig..end
type (-'a, +'b) t
val sexp_of_t : 'a -> 'b -> ('c, 'd) t -> Std_internal.Sexp.tval create : assertion:('a -> bool) ->
fail_alert:('a -> 'b) ->
success_alert:('a -> 'b) -> ('a, 'b) tval check : ('a, 'b) t -> 'a -> 'b optionval state : ('a, 'b) t -> bool