Do not return sent message object from send(Direct)MessageHEADmaster

Changelog: API: Return type of `sendMessage` and `sendDirectMessage` is now `()`

1 files changed, 4 insertions, 4 deletions

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