From cb71b9c56754abe739b889aeb9fd8bf80097c661 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
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/DirectMessage.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Erebos/DirectMessage.hs')

diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs
index 62a25a2..2108587 100644
--- a/src/Erebos/DirectMessage.hs
+++ b/src/Erebos/DirectMessage.hs
@@ -58,6 +58,8 @@ instance ConversationType DirectMessageThread DirectMessage where
     convMessageListSince Nothing      thread = ( 0, ) $ dmThreadToListUnread thread
     convMessageListSince (Just since) thread = dmThreadToListChange since thread
 
+    convMarkAllSeen DirectMessageThread {..} = dmMarkAsSeen msgPeer
+
 
 data DirectMessage = DirectMessage
     { msgFrom :: ComposedIdentity
-- 
cgit v1.2.3