From 017e97db2621ef47c23225dde2ebd3764ed9bc28 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 6 Aug 2026 02:32:20 +0100
Subject: End cancelled turn using end-turn-effects.

---
 kaagum/tea.scm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/kaagum/tea.scm b/kaagum/tea.scm
index 12d455c..749abb9 100644
--- a/kaagum/tea.scm
+++ b/kaagum/tea.scm
@@ -525,11 +525,7 @@ in @code{tea-loop}."
                                           (put state-requests-alist
                                                '()
                                                <>))))
-                 (state-return
-                  (list (acp-message `(("jsonrpc" . "2.0")
-                                       ("id" . ,request-id)
-                                       ("result"
-                                        ("stopReason" . "cancelled")))))))))))))))
+                 (end-turn-effects session-id models "cancelled"))))))))))
 
 (define (client-response-effects response)
   "Return the state-monadic list of effects for a new ACP @var{response}."
-- 
cgit 1.4.1