From 254d106c92dcabcdeb83a5d0141deca22ffb79de Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Fri, 9 Oct 2026 01:16:35 -0300
Subject: admission protocol for multigroup denial checks

---
 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 cdadd4a..c8480a6 100644
--- a/lib/protocols/Handle.ml
+++ b/lib/protocols/Handle.ml
@@ -47,4 +47,5 @@ let release ({valid; _} as handle) =
   valid := false;
   o#release
 
+let releasing handle f = Fun.protect ~finally:(fun () -> release handle) f
 let require f h = Option.to_result ~none:(Error.unimplemented_protocol (to_string h)) (f h)
-- 
cgit v1.2.3