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/concepts/Tuple.ml | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/concepts/Tuple.ml') diff --git a/lib/concepts/Tuple.ml b/lib/concepts/Tuple.ml index 28dadc5..c2da77c 100644 --- a/lib/concepts/Tuple.ml +++ b/lib/concepts/Tuple.ml @@ -39,3 +39,8 @@ and Body : Encoding.Record.BODY = struct end let hash tuple = Representation.to_blob tuple |> Hash.hash_of_blob + +let to_string {attributes; _} = + BatMap.String.bindings attributes + |> List.map (fun (a, v) -> a ^ "=" ^ Value.to_string v) + |> String.concat " " -- cgit v1.2.3