From 45b4c02ad2f8953f0fb617185b92988474127d0f Mon Sep 17 00:00:00 2001
From: tiye <jiyinyiyong@gmail.com>
Date: Fri, 13 Nov 2026 12:10:42 +0800
Subject: [PATCH] Read Gen Code input through the Respo event contract

---
 calcit.cirru | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/calcit.cirru b/calcit.cirru
index 001bdff..e4a97f0 100644
--- a/calcit.cirru
+++ b/calcit.cirru
@@ -382,7 +382,9 @@
                             Fn HostOp $ -> Unit
                             -> Unit
                           d! $ encode-op $ gen-code.schema/GenCodeOp :states cursor
-                            assoc state :query $ decode-map-as (schema/read-open-field-or e :value |) 'String
+                            assoc state :query $ let
+                                value $ :value e
+                              if (nil? value) | $ decode-map-as value String
                           , &unit
                         :on-keydown $ fn (e d!)
                           hint-fn $ Fn respo.schema/RespoEvent