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/Generator.ml | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/lib/kernel/Generator.ml b/lib/kernel/Generator.ml
index e4a15f8..10f6865 100644
--- a/lib/kernel/Generator.ml
+++ b/lib/kernel/Generator.ml
@@ -15,6 +15,8 @@ class producer_cursor produce on_release =
     inherit Lifecycle.null
     inherit Identity.of_id
 
+    method to_string = "producer-cursor"
+
     val mutable state : [`Fresh | `Live of (unit, step) Effect.Deep.continuation | `Done] = `Fresh
     method protocols : Protocols.Handle.protocol list = Protocols.[Cursor.make self]
     method private step : (Concepts.Tuple.t option, Concepts.Condition.condition) result =
-- 
cgit v1.2.3