summaryrefslogtreecommitdiff
path: root/src/Erebos/Chatroom.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Erebos/Chatroom.hs')
-rw-r--r--src/Erebos/Chatroom.hs2
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)