diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-03-08 20:36:51 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-03-08 20:36:51 -0300 |
| commit | 88dc315e454a695426becf928aef46668f9db0dc (patch) | |
| tree | 2f4cfa8487c80bbbb5976e37bc955351b70cafa4 /lib/manipulation.ml | |
| parent | e10acd09faf53c636b653c4df034716545db5fab (diff) | |
| download | Sakura-88dc315e454a695426becf928aef46668f9db0dc.tar.gz Sakura-88dc315e454a695426becf928aef46668f9db0dc.zip | |
server
Diffstat (limited to '')
| -rw-r--r-- | lib/manipulation.ml | 7 |
1 files changed, 5 insertions, 2 deletions
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]. *) |