From edafccea465f1f9448a1a7ae555b8615e5b5ac1b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 2 Jul 2023 20:02:11 +0200
Subject: Shared state helpers usable with other local head updates

---
 src/Message.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Message.hs')

diff --git a/src/Message.hs b/src/Message.hs
index a97e52f..ba45518 100644
--- a/src/Message.hs
+++ b/src/Message.hs
@@ -155,7 +155,7 @@ sendDirectMessage h peer text = do
         self = headLocalIdentity h
         powner = finalOwner pid
 
-    smsg <- flip runReaderT h $ updateSharedState $ \(DirectMessageThreads prev _) -> liftIO $ do
+    smsg <- flip runReaderT h $ updateLocalHead $ updateSharedState $ \(DirectMessageThreads prev _) -> liftIO $ do
         let sent = findMsgProperty powner msSent prev
             received = findMsgProperty powner msReceived prev
 
-- 
cgit v1.2.3