Source file `vdom.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
module Event = struct
  type t = unit

  let no_op = ()
  let sequence _ = ()
end

module Attr = struct
  type t = unit

  let on_click _ = failwith "not real"
end

module Node = struct
  type t = unit

  let button _ _ = ()
  let text _ = ()
  let div _ _ = ()
end