module type Handler = sig

  type t

  val on_close: t -> State.t -> State.t

end

type event = Event : 'a * (module Handler with type t = 'a) -> event

(** The signal has to be log in order to be completely working *)
type t = event Note.signal * Brr.El.t