module State: sig .. end
sig
end
type t =
|
Close_requested of (unit -> unit Import.Deferred.t)
(unit -> unit Import.Deferred.t)
Closed
Open
val sexp_of_t : t -> Sexplib.Sexp.t
t -> Sexplib.Sexp.t
val transition_is_allowed : t -> t -> bool
t -> t -> bool
val is_open : t -> bool
t -> bool