From e590ad0f1bc378a3149cb66a0dce2200d34ddefb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 30 May 2026 10:13:50 +0200 Subject: Extend ConversationType class to provide number of removed messages --- src/Erebos/Conversation.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Erebos/Conversation.hs') diff --git a/src/Erebos/Conversation.hs b/src/Erebos/Conversation.hs index 20cbf94..1d72f41 100644 --- a/src/Erebos/Conversation.hs +++ b/src/Erebos/Conversation.hs @@ -131,7 +131,7 @@ conversationPeer (DirectMessageConversation thread) = Just $ msgPeer thread conversationPeer (ChatroomConversation _) = Nothing conversationHistory :: Conversation -> [ Message ] -conversationHistory = withConversation $ map (uncurry Message) . convMessageListSince Nothing +conversationHistory = withConversation $ map (uncurry Message) . snd . convMessageListSince Nothing sendMessage :: (MonadHead LocalState m, MonadError e m, FromErebosError e) => Conversation -> Text -> m () -- cgit v1.2.3