diff options
Diffstat (limited to 'lib/protocols/Handle.ml')
| -rw-r--r-- | lib/protocols/Handle.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/protocols/Handle.ml b/lib/protocols/Handle.ml index 23af476..524386b 100644 --- a/lib/protocols/Handle.ml +++ b/lib/protocols/Handle.ml @@ -39,6 +39,8 @@ let copy handle = let equal h1 h2 = Concepts.Hash.hash_equals (object_of h1)#hash (object_of h2)#hash +let hash h = (object_of h)#hash + let release ({ valid; _ } as handle) = let o = object_of handle in valid := false; |