module Light: sig .. end
sig
end
type t = {
mutable lwt_t : unit Lwt.t;
unit Lwt.t
mutable lwt_u : unit Lwt.u;
unit Lwt.u
mutable color : [ `Green | `Red ];
[ `Green | `Red ]
val create : unit -> t
unit -> t
val try_to_pass : t -> (unit, 'a) Pvem_lwt_unix.Deferred_result.t
t -> (unit, 'a) Pvem_lwt_unix.Deferred_result.t
val green : t -> unit
t -> unit