lib/kernel/Identity.ml


1
2
3
4
5
6
7

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