Conversation type class

1 files changed, 8 insertions, 0 deletions

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 ]