Chatrooms in conversation interface

1 files changed, 9 insertions, 3 deletions

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index dcd7b42..be1a0e4 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -20,7 +20,8 @@ module Erebos.Chatroom (
     cmsgFrom, cmsgReplyTo, cmsgTime, cmsgText, cmsgLeave,
     cmsgRoom, cmsgRoomData,
     ChatMessageData(..),
-    chatroomMessageByStateData,
+    sendChatroomMessage,
+    sendChatroomMessageByStateData,
 
     ChatroomService(..),
 ) where
@@ -171,10 +172,15 @@ threadToList thread = helper S.empty $ thread
         | otherwise = []
     cmpView msg = (zonedTimeToUTC $ mdTime $ fromSigned msg, msg)
 
-chatroomMessageByStateData
+sendChatroomMessage
+    :: (MonadStorage m, MonadHead LocalState m, MonadError String m)
+    => ChatroomState -> Text -> m ()
+sendChatroomMessage rstate msg = sendChatroomMessageByStateData (head $ roomStateData rstate) msg
+
+sendChatroomMessageByStateData
     :: (MonadStorage m, MonadHead LocalState m, MonadError String m)
     => Stored ChatroomStateData -> Text -> m ()
-chatroomMessageByStateData lookupData msg = void $ findAndUpdateChatroomState $ \cstate -> do
+sendChatroomMessageByStateData lookupData msg = void $ findAndUpdateChatroomState $ \cstate -> do
     guard $ any (lookupData `precedesOrEquals`) $ roomStateData cstate
     Just $ do
         self <- finalOwner . localIdentity . fromStored <$> getLocalHead