From 5be8f266e0af73917d8b73797c94333f7806b7c8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sun, 16 Nov 2025 10:51:44 +0100 Subject: Conversation type class --- src/Erebos/DirectMessage.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'src/Erebos/DirectMessage.hs') diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs index f518b57..2558abb 100644 --- a/src/Erebos/DirectMessage.hs +++ b/src/Erebos/DirectMessage.hs @@ -32,6 +32,7 @@ import Data.Text qualified as T import Data.Time.Format import Data.Time.LocalTime +import Erebos.Conversation.Class import Erebos.Discovery import Erebos.Identity import Erebos.Network @@ -42,6 +43,13 @@ import Erebos.Storable import Erebos.Storage.Head import Erebos.Storage.Merge + +instance ConversationType DirectMessageThread DirectMessage where + convMessageFrom = msgFrom + convMessageTime = msgTime + convMessageText = Just . msgText + + data DirectMessage = DirectMessage { msgFrom :: ComposedIdentity , msgPrev :: [ Stored DirectMessage ] -- cgit v1.2.3