From e590ad0f1bc378a3149cb66a0dce2200d34ddefb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 30 May 2026 10:13:50 +0200
Subject: Extend ConversationType class to provide number of removed messages

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

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

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index 11d5643..aa5e3ee 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -69,7 +69,7 @@ instance ConversationType ChatroomState ChatMessage where
 
     convReference = refDigest . storedRef . head . filterAncestors . concatMap storedRoots . roomStateData
 
-    convMessageListSince mbSince cstate =
+    convMessageListSince mbSince cstate = ( 0, ) $
         map (, False) $ threadToListSince (maybe [] roomStateMessageData mbSince) (roomStateMessageData cstate)
 
 
-- 
cgit v1.2.3