diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-05-30 10:13:50 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-05-30 10:13:50 +0200 |
| commit | e590ad0f1bc378a3149cb66a0dce2200d34ddefb (patch) | |
| tree | 210d28dddf10b17c0bd7c876bb8d72447ab0320d /src/Erebos/Chatroom.hs | |
| parent | 791c532682578c0dd1a0e3779f36ccfbced93d60 (diff) | |
Extend ConversationType class to provide number of removed messages
Diffstat (limited to 'src/Erebos/Chatroom.hs')
| -rw-r--r-- | src/Erebos/Chatroom.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |