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/Class.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Erebos/Conversation/Class.hs') diff --git a/src/Erebos/Conversation/Class.hs b/src/Erebos/Conversation/Class.hs index 96a0e6a..d7bac5d 100644 --- a/src/Erebos/Conversation/Class.hs +++ b/src/Erebos/Conversation/Class.hs @@ -3,12 +3,16 @@ module Erebos.Conversation.Class ( RefDigest, ) where +import Control.Monad.Except + import Data.Text (Text) import Data.Time.LocalTime import Data.Typeable +import Erebos.Error import Erebos.Identity import Erebos.Object +import Erebos.State class (Typeable conv, Typeable msg) => ConversationType conv msg | conv -> msg, msg -> conv where @@ -21,3 +25,5 @@ class (Typeable conv, Typeable msg) => ConversationType conv msg | conv -> msg, :: Maybe conv -- ^ Original state to diff from -> conv -- ^ Current state -> ( Int, [ ( msg, Bool ) ] ) -- ^ Number of removed, list of added messages + + convMarkAllSeen :: (MonadHead LocalState m, MonadError e m, FromErebosError e) => conv -> m () -- cgit v1.2.3