Command to mark messages as seen

Changelog: Added `/seen` command to mark messages as seen.

1 files changed, 6 insertions, 0 deletions

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 ()