blob: 28780d984f81745a2af9016418eae4a90de15439 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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 type is both the form handler, the form value, and the HTML element
which contains the form.
The signal has to be log in order to be completely working. *)
type t = event Note.signal * Brr.El.t
|