let
green t =
t.color <-
`
Green
;
Lwt
.wakeup_exn t.lwt_u
Lwt
.
Canceled