From d5c3c66d1e026a3b7d38a332ae5bf3ede27ae72f Mon Sep 17 00:00:00 2001
From: "Evgeny @ SimpleX Chat"
 <259188159+evgeny-simplex@users.noreply.github.com>
Date: Sat, 11 Jul 2026 19:21:19 +0000
Subject: [PATCH] fix

---
 src/Simplex/Chat.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs
index 5298fcd5bd..617b95a822 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -168,7 +168,7 @@ newChatController
     let randomAgentServers = RandomAgentServers {smpServers = agentSMP, xftpServers = agentXFTP}
     servers <- withTransaction chatStore $ \db -> agentServers db config randomPresetServers randomAgentServers
     ccVar <- newEmptyTMVarIO
-    let processEvent t = do
+    let processEvent _ t = do
           cc <- atomically $ readTMVar ccVar
           runReaderT (processAgentEvent t) cc
     runExceptT (getSMPAgentClient aCfg {tbqSize} servers agentStore processEvent)