From 7fb2f923f3cec61964f223cef7b60c8e8bb7fc3b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 12 Oct 2024 19:23:47 +0200
Subject: Chatroom: unsubscribe when leaving

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

(limited to 'src/Erebos')

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index c8b5805..5ba137f 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -205,7 +205,7 @@ sendRawChatroomMessageByStateData lookupData mdReplyTo mdText mdLeave = void $ f
         mergeSorted . (:[]) <$> mstore ChatroomStateData
             { rsdPrev = roomStateData cstate
             , rsdRoom = []
-            , rsdSubscribe = Just True
+            , rsdSubscribe = Just (not mdLeave)
             , rsdMessages = [ mdata ]
             }
 
-- 
cgit v1.2.3