Source file unit.ml

1
2
3
4
5
type t = unit
let equal () () = true
let compare () () = Ordering.Eq
let hash () = 0
let to_sexp () = Sexp.List []