diff options
Diffstat (limited to 'lib/prl/executor.ml')
| -rw-r--r-- | lib/prl/executor.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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) |