From 5be8f266e0af73917d8b73797c94333f7806b7c8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 16 Nov 2025 10:51:44 +0100
Subject: Conversation type class

---
 src/Erebos/Chatroom.hs | 7 +++++++
 1 file changed, 7 insertions(+)

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

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index f9bf545..bdb101f 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -50,6 +50,7 @@ import Data.Set qualified as S
 import Data.Text (Text)
 import Data.Time
 
+import Erebos.Conversation.Class
 import Erebos.Identity
 import Erebos.PubKey
 import Erebos.Service
@@ -61,6 +62,12 @@ import Erebos.Storage.Merge
 import Erebos.Util
 
 
+instance ConversationType ChatroomState ChatMessage where
+    convMessageFrom = cmsgFrom
+    convMessageTime = cmsgTime
+    convMessageText = cmsgText
+
+
 data ChatroomData = ChatroomData
     { rdPrev :: [Stored (Signed ChatroomData)]
     , rdName :: Maybe Text
-- 
cgit v1.2.3