Conversation type class

1 files changed, 7 insertions, 0 deletions

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