From 56492ad5f6f09d8c9f337d42803b64d1b9f0668b Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 27 Apr 2026 13:00:30 -0300 Subject: Introduce Multigroups (#65) --- lib/management/branch.ml | 4 ++-- lib/management/database.ml | 3 +++ 2 files changed, 5 insertions(+), 2 deletions(-) (limited to 'lib/management') diff --git a/lib/management/branch.ml b/lib/management/branch.ml index 1d218b1..81dcdff 100644 --- a/lib/management/branch.ml +++ b/lib/management/branch.ml @@ -78,7 +78,7 @@ module Make (Storage : Physical.S with type error = string) = struct let mk v = { Attribute.value = Obj.repr v } in let rec generator position = match position with - | None -> Generator.Error "random access not supported for sakura:branch" + | None -> Generator.Error "random access not supported for public:branch" | Some pos -> ( match list storage with | Error _ -> Generator.Done @@ -109,7 +109,7 @@ module Make (Storage : Physical.S with type error = string) = struct let mk v = { Attribute.value = Obj.repr v } in let generator position = match position with - | None -> Generator.Error "random access not supported for sakura:head" + | None -> Generator.Error "random access not supported for public:head" | Some 0 -> ( match get_head storage with | Ok None | Error _ -> Generator.Done diff --git a/lib/management/database.ml b/lib/management/database.ml index f4d18e8..b8a9829 100644 --- a/lib/management/database.ml +++ b/lib/management/database.ml @@ -6,6 +6,9 @@ reconstruct a past state from a hash alone without a separate snapshot store. Either cap the history or make it actually useful. *) +(* TODO: refactor RelationMap keying from composite "schema:relation" strings + to nested maps (schema -> relation -> Relation.t) for cleaner semantics. + Currently, callers are responsible for passing composite keys. *) module RelationMap = Map.Make (String) type deferred_entry = { -- cgit v1.2.3