From f05e96ac2b9c38463fba8712d8b13844e03cd191 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 2 Aug 2025 19:23:22 +0200 Subject: Do not return sent message object from send(Direct)Message Changelog: API: Return type of `sendMessage` and `sendDirectMessage` is now `()` --- src/Erebos/DirectMessage.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Erebos/DirectMessage.hs') diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs index 2dd0b06..21ba5b3 100644 --- a/src/Erebos/DirectMessage.hs +++ b/src/Erebos/DirectMessage.hs @@ -164,11 +164,11 @@ findMsgProperty pid sel mss = concat $ flip findProperty mss $ \x -> do sendDirectMessage :: (Foldable f, Applicative f, MonadHead LocalState m) - => Identity f -> Text -> m (Stored DirectMessage) -sendDirectMessage pid text = updateLocalState $ \ls -> do + => Identity f -> Text -> m () +sendDirectMessage pid text = updateLocalState_ $ \ls -> do let self = localIdentity $ fromStored ls powner = finalOwner pid - flip updateSharedState ls $ \(DirectMessageThreads prev _) -> do + flip updateSharedState_ ls $ \(DirectMessageThreads prev _) -> do let ready = findMsgProperty powner msReady prev received = findMsgProperty powner msReceived prev @@ -187,7 +187,7 @@ sendDirectMessage pid text = updateLocalState $ \ls -> do , msReceived = [] , msSeen = [] } - return ( DirectMessageThreads [ next ] (dmThreadView [ next ]), smsg ) + return $ DirectMessageThreads [ next ] (dmThreadView [ next ]) syncDirectMessageToPeer :: DirectMessageThreads -> ServiceHandler DirectMessage () syncDirectMessageToPeer (DirectMessageThreads mss _) = do -- cgit v1.2.3