From 2d7c5b7c6696f39028ab07064ff75548d71ee5cf Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Thu, 24 Sep 2026 02:16:27 +0000
Subject: Make objects printable

---
 lib/kernel/Multigroup.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/kernel/Multigroup.ml')

diff --git a/lib/kernel/Multigroup.ml b/lib/kernel/Multigroup.ml
index 685c8c7..e5e36cf 100644
--- a/lib/kernel/Multigroup.ml
+++ b/lib/kernel/Multigroup.ml
@@ -41,6 +41,8 @@ module Make (S : Abstract.Storage.STORAGE) = struct
   class multigroup conn value node = object
     inherit Lifecycle.null
 
+    method to_string = "multigroup"
+
     val multigroup = value
     val storage = conn
     val node = node (* FIXME: see the comment on Branch.ml *)
-- 
cgit v1.2.3