1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
module Incr = Incr_dom.Incr
module Vdom = Virtual_dom.Vdom
module Event = struct
type t = Vdom.Event.t
let sequence e = Vdom.Event.Many e
let no_op = Vdom.Event.Ignore
end
module Bonsai_lib = Bonsai
module Bonsai = struct
module Event = Event
module Incr = Incr
include Bonsai.Make (Incr) (Event)
end