From 254d106c92dcabcdeb83a5d0141deca22ffb79de Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Fri, 9 Oct 2026 01:16:35 -0300 Subject: admission protocol for multigroup denial checks --- lib/kernel/EphemeralRelation.ml | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'lib/kernel/EphemeralRelation.ml') diff --git a/lib/kernel/EphemeralRelation.ml b/lib/kernel/EphemeralRelation.ml index ff7bce1..7f1e79c 100644 --- a/lib/kernel/EphemeralRelation.ml +++ b/lib/kernel/EphemeralRelation.ml @@ -87,9 +87,7 @@ class ephemeral_relation ?code description value enumerate inputs = method contains (tuple : Concepts.Tuple.t) = let open Utilities.Result in let* cursor = self#enumerate in - Fun.protect - ~finally:(fun () -> Protocols.Handle.release cursor) - (fun () -> + Protocols.Handle.releasing cursor (fun () -> let* scan = Protocols.Cursor.require cursor in Protocols.Cursor.exists scan (fun member -> Concepts.Hash.hash_equals (Concepts.Tuple.hash member) (Concepts.Tuple.hash tuple) ) ) -- cgit v1.2.3