Module Pvem_lwt_unix.Light (.ml)

module Light: sig .. end

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