diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-09 01:16:35 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-09 01:16:35 -0300 |
| commit | 254d106c92dcabcdeb83a5d0141deca22ffb79de (patch) | |
| tree | c99478aed6730365fcdd907b7bd777e3b7e2237a /lib/concepts | |
| parent | 4896005e5d156e8a590b12946a54507daa895686 (diff) | |
| download | RNT-254d106c92dcabcdeb83a5d0141deca22ffb79de.tar.gz RNT-254d106c92dcabcdeb83a5d0141deca22ffb79de.zip | |
admission protocol for multigroup denial checks
Diffstat (limited to 'lib/concepts')
| -rw-r--r-- | lib/concepts/Tuple.ml | 5 |
1 files changed, 5 insertions, 0 deletions
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 " " |