From cb71b9c56754abe739b889aeb9fd8bf80097c661 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 2 Jun 2026 21:10:39 +0200
Subject: Command to mark messages as seen

Changelog: Added `/seen` command to mark messages as seen.
---
 src/Erebos/Chatroom.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Erebos/Chatroom.hs')

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index aa5e3ee..fce8b1d 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -72,6 +72,8 @@ instance ConversationType ChatroomState ChatMessage where
     convMessageListSince mbSince cstate = ( 0, ) $
         map (, False) $ threadToListSince (maybe [] roomStateMessageData mbSince) (roomStateMessageData cstate)
 
+    convMarkAllSeen _ = return ()
+
 
 data ChatroomData = ChatroomData
     { rdPrev :: [Stored (Signed ChatroomData)]
-- 
cgit v1.2.3