From de0c48e2c0ab3ff3372b7eb207cba5cf245e1ea9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 22 Feb 2026 19:05:53 +0100
Subject: Conversation reference using RefDigest

---
 src/Erebos/Chatroom.hs | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index 5a86b23..11d5643 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -67,6 +67,8 @@ instance ConversationType ChatroomState ChatMessage where
     convMessageTime = cmsgTime
     convMessageText = cmsgText
 
+    convReference = refDigest . storedRef . head . filterAncestors . concatMap storedRoots . roomStateData
+
     convMessageListSince mbSince cstate =
         map (, False) $ threadToListSince (maybe [] roomStateMessageData mbSince) (roomStateMessageData cstate)
 
-- 
cgit v1.2.3