From e3d3e20dfea253de291d5b31059cd55c0eaabf02 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 11 May 2026 23:10:27 -0300 Subject: Multigroup unified reference for hierarchical access --- lib/prl/executor.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/prl/executor.ml') diff --git a/lib/prl/executor.ml b/lib/prl/executor.ml index 6a53656..10b5142 100644 --- a/lib/prl/executor.ml +++ b/lib/prl/executor.ml @@ -20,8 +20,8 @@ module Make (Storage : Management.Physical.S) = struct let ( let* ) = Result.bind let map_rel_error r = Result.map_error (fun e -> RelationError e) r - let require_relation (db : Management.Database.t) rel_name = - match Management.Database.get_relation db rel_name with + let require_relation (db : Management.Multigroup.multigroup) rel_name = + match Ops.get_relation db#hash rel_name with | Some rel -> Ok rel | None -> Error (RelationNotFound rel_name) -- cgit v1.2.3