From 882511dc8c0abded18ba6abdca64938db2652771 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Wed, 23 Sep 2026 03:32:15 -0300
Subject: lift retaining, membership and mode checks out of ephemeral relation

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

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

diff --git a/lib/protocols/Handle.ml b/lib/protocols/Handle.ml
index cb78cf2..378b8c8 100644
--- a/lib/protocols/Handle.ml
+++ b/lib/protocols/Handle.ml
@@ -49,6 +49,7 @@ let equal h1 h2 =
   Concepts.Hash.hash_equals (object_of h1)#hash (object_of h2)#hash
 
 let hash h = (object_of h)#hash
+let protocols h = (object_of h)#protocols
 
 let release ({ valid; _ } as handle) =
   let o = object_of handle in
-- 
cgit v1.2.3