From cb71b9c56754abe739b889aeb9fd8bf80097c661 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= 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/Conversation.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Erebos/Conversation.hs') diff --git a/src/Erebos/Conversation.hs b/src/Erebos/Conversation.hs index 1d72f41..472195c 100644 --- a/src/Erebos/Conversation.hs +++ b/src/Erebos/Conversation.hs @@ -26,6 +26,7 @@ module Erebos.Conversation ( sendMessage, deleteConversation, + markAllSeen, ) where import Control.Monad.Except @@ -141,3 +142,6 @@ sendMessage (ChatroomConversation rstate) text = sendChatroomMessage rstate text deleteConversation :: (MonadHead LocalState m, MonadError e m, FromErebosError e) => Conversation -> m () deleteConversation (DirectMessageConversation _) = throwOtherError "deleting direct message conversation is not supported" deleteConversation (ChatroomConversation rstate) = deleteChatroomByStateData (head $ roomStateData rstate) + +markAllSeen :: (MonadHead LocalState m, MonadError e m, FromErebosError e) => Conversation -> m () +markAllSeen = withConversation convMarkAllSeen -- cgit v1.2.3