diff options
Diffstat (limited to 'src/Erebos/Chatroom.hs')
| -rw-r--r-- | src/Erebos/Chatroom.hs | 7 |
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 |