From e3d3e20dfea253de291d5b31059cd55c0eaabf02 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Mon, 11 May 2026 23:10:27 -0300
Subject: Multigroup unified reference for hierarchical access

---
 lib/error.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lib/error.ml')

diff --git a/lib/error.ml b/lib/error.ml
index cf02845..6215320 100644
--- a/lib/error.ml
+++ b/lib/error.ml
@@ -11,8 +11,8 @@ type t =
   (* TODO: think of a better way to manage and serialize sublanguage errors *)
   | SublanguageError of Sexplib.Sexp.t
   | Conflict of {
-      old_db : Management.Database.t;
-      new_db : Management.Database.t;
+      old_db : Management.Multigroup.multigroup;
+      new_db : Management.Multigroup.multigroup;
     }
   | SyntaxError of string
   | MultigroupNotFound of string
@@ -39,4 +39,4 @@ let sexp_of_error e =
   | MultigroupNotFound s -> error "multigroup-not-found" [ "name" <+> Atom s ]
   | Conflict { old_db; new_db } ->
       error "conflict"
-        [ "old-hash" <+> Atom old_db.hash; "new-hash" <+> Atom new_db.hash ]
+        [ "old-hash" <+> Atom old_db#hash; "new-hash" <+> Atom new_db#hash ]
-- 
cgit v1.2.3