summaryrefslogtreecommitdiff
path: root/Omni
diff options
context:
space:
mode:
Diffstat (limited to 'Omni')
-rw-r--r--Omni/Agent/Telegram.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Omni/Agent/Telegram.hs b/Omni/Agent/Telegram.hs
index ae87c44..72cbd6c 100644
--- a/Omni/Agent/Telegram.hs
+++ b/Omni/Agent/Telegram.hs
@@ -766,7 +766,7 @@ handleAuthorizedMessage ::
Int ->
IO ()
handleAuthorizedMessage tgConfig provider engineCfg msg uid userName chatId = do
- Reminders.recordUserChat uid chatId
+ unless (Types.isGroupChat msg) <| Reminders.recordUserChat uid chatId
let msgText = Types.tmText msg
threadId = Types.tmThreadId msg
@@ -950,7 +950,7 @@ handleAuthorizedMessageBatch ::
Text ->
IO ()
handleAuthorizedMessageBatch tgConfig provider engineCfg msg uid userName chatId batchedText = do
- Reminders.recordUserChat uid chatId
+ unless (Types.isGroupChat msg) <| Reminders.recordUserChat uid chatId
pdfContent <- case Types.tmDocument msg of
Just doc | Types.isPdf doc -> do