1 2 3 4 5 6 7 8 9
type t = { title : Jstr.t } type Events.kind += | AddPage of t [@@unboxed] val create : unit -> Events.t val on_close : t -> State.t -> State.t