Source file `vdom_with_phys_equal.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open! Core
open Virtual_dom

module Node = struct
  type t = Vdom.Node.t

  let sexp_of_t _ = Sexp.Atom "<vdom.node>"
  let equal = phys_equal
end

module Attr = struct
  type t = Vdom.Attr.t

  let sexp_of_t _ = Sexp.Atom "<vdom.attr>"
  let equal = phys_equal
end