From 3e1686f2cc593afabc6c784b0c37316df784d1d8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Thu, 18 Jun 2026 21:53:46 +0200
Subject: Constructor for empty direct message thread

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

(limited to 'src/Erebos/Conversation.hs')

diff --git a/src/Erebos/Conversation.hs b/src/Erebos/Conversation.hs
index c9a3b59..365f8de 100644
--- a/src/Erebos/Conversation.hs
+++ b/src/Erebos/Conversation.hs
@@ -102,7 +102,7 @@ directMessageConversation peer = do
     createOrUpdateDirectMessagePeer peer
     (find (sameIdentity peer . msgPeer) . dmThreadList . lookupSharedValue . lsShared . fromStored <$> getLocalHead) >>= \case
         Just thread -> return $ DirectMessageConversation thread
-        Nothing -> return $ DirectMessageConversation $ DirectMessageThread peer [] [] [] []
+        Nothing -> return $ DirectMessageConversation $ dmEmptyThread peer
 
 chatroomConversation :: MonadHead LocalState m => ChatroomState -> m (Maybe Conversation)
 chatroomConversation rstate = chatroomConversationByStateData (head $ roomStateData rstate)
-- 
cgit v1.2.3