Module type Pvem_lwt_unix.LIGHT

module type LIGHT = sig .. end

Basic traffic lights.

type t

The traffic signal handle (uses Lwt.task).

val create : unit -> t

Create a “red” traffic light.

val try_to_pass : t -> (unit, 'a) Pvem_lwt_unix.Deferred_result.t

try_to_pass t will block until t is “green” or will return immediately if t is already green.

val green : t -> unit

green t sets the light to “green”, this will wake up all the threads waiting on try_to_pass t.