From 1259773fac4d7c334351c61ab8cf71231c1af4ef Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Thu, 3 Sep 2026 02:23:27 +0000
Subject: Branch registration

---
 lib/protocols/Handle.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/protocols/Handle.ml')

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;
-- 
cgit v1.2.3