Source file unit.ml

1
2
3
4
5
6
type t = unit

let equal () () = true
let compare () () = Ordering.Eq
let hash () = 0
let to_dyn () = Dyn.Unit