From 88dc315e454a695426becf928aef46668f9db0dc Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Sun, 8 Mar 2026 20:36:51 -0300 Subject: server --- lib/manipulation.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'lib/manipulation.ml') diff --git a/lib/manipulation.ml b/lib/manipulation.ml index a1d90d6..5f7cfb9 100644 --- a/lib/manipulation.ml +++ b/lib/manipulation.ml @@ -770,9 +770,12 @@ module Make (Storage : Management.Physical.S) = struct match store_relation storage relation with | Error e -> Error e | Ok () -> - match store_database storage new_db with + match update_catalog_on_create storage new_db relation with | Error e -> Error e - | Ok () -> Ok (new_db, relation) + | Ok final_db -> + match store_database storage final_db with + | Error e -> Error e + | Ok () -> Ok (final_db, relation) (** Remove a relation from the database. Also removes its entries from [sakura:relation] and [sakura:attribute]. *) -- cgit v1.2.3