lib/kernel/Identity.ml


1
2
3
4
5
6
7
8

class type identity = object
  method hash : Concepts.Hash.hash
end

class of_id =
  object (self)
    method hash = Oo.id self |> Concepts.Hash.hash_of_int
  end