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)