From 6c13b1285605020bb3c510dd1862d2d8d9828337 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 17 Jul 2022 22:51:32 +0200
Subject: Generalize head updates to provided MonadIO instances

---
 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 46d75f1..06117fe 100644
--- a/src/Message.hs
+++ b/src/Message.hs
@@ -135,7 +135,7 @@ sendDirectMessage h peer text = do
         self = headLocalIdentity h
         powner = finalOwner pid
 
-    smsg <- flip runReaderT h $ updateSharedState $ \(DirectMessageThreads prev _) -> do
+    smsg <- flip runReaderT h $ updateSharedState $ \(DirectMessageThreads prev _) -> liftIO $ do
         let sent = findMsgProperty powner msSent prev
             received = findMsgProperty powner msReceived prev
 
-- 
cgit v1.2.3