Source file unit.ml

1
2
3
4
5
6
7
8
9
type t = unit

let equal () () = true

let compare () () = Ordering.Eq

let hash () = 0

let to_dyn () = Dyn.Unit