RNT interface

Co-authored-by: Estevan Castilho <tevo@riajuu.net>

1 files changed, 7 insertions, 5 deletions

diff --git a/lib/manipulation.ml b/lib/manipulation.ml
index dd09378..55b1c32 100644
--- a/lib/manipulation.ml
+++ b/lib/manipulation.ml
@@ -14,11 +14,11 @@
 
 (** Functor to create manipulation operations with a storage backend *)
 module Make (Storage : Management.Physical.S) = struct
-  include Nt
-  
   type storage = Storage.t
   type error = Error.t
-  
+
+  let ( let* ) = Result.bind
+
   (* State Persistence - Store relation and database states *)
 
   (** Store a relation state to storage *)
@@ -30,11 +30,13 @@ module Make (Storage : Management.Physical.S) = struct
       | Error _ -> Error (Error.StorageError "Failed to store relation")
       | Ok () -> Ok ()
 
-  (** Store a database state to storage *)
+  (** Store a database state to storage.
+      Keyed by [db#name]; content-hashing of mgs is no longer maintained on the
+      Sakura side — the kernel owns mg content addressing. *)
   let store_multigroup (storage : storage) (db : Management.Multigroup.multigroup) :
       (unit, error) Result.t =
       match
-        Storage.store_raw storage db#hash (Storable.Multigroup.to_bytes @@ db#serialize ())
+        Storage.store_raw storage db#name (Storable.Multigroup.to_bytes @@ db#serialize ())
       with
       | Error _ -> Error (Error.StorageError "Failed to store multigroup")
       | Ok () -> Ok ()