From fef17af2437a8584d0435c94d85b9619b5264219 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 5 Aug 2025 20:18:49 +0200
Subject: Use MonadStorage for storeSetAdd

Changelog: API: `Set.storeSetAdd` uses `MonadStorage` instead explicit `Storage` parameter
---
 src/Erebos/Chatroom.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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

diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs
index 579d530..f9bf545 100644
--- a/src/Erebos/Chatroom.hs
+++ b/src/Erebos/Chatroom.hs
@@ -295,8 +295,7 @@ createChatroom rdName rdDescription = do
         }
 
     updateLocalState $ updateSharedState $ \rooms -> do
-        st <- getStorage
-        (, cstate) <$> storeSetAdd st cstate rooms
+        (, cstate) <$> storeSetAdd cstate rooms
 
 findAndUpdateChatroomState
     :: (MonadStorage m, MonadHead LocalState m)
@@ -310,8 +309,7 @@ findAndUpdateChatroomState f = do
                 upd <- act
                 if roomStateData orig /= roomStateData upd
                   then do
-                    st <- getStorage
-                    roomSet' <- storeSetAdd st upd roomSet
+                    roomSet' <- storeSetAdd upd roomSet
                     return (roomSet', Just upd)
                   else do
                     return (roomSet, Just upd)
-- 
cgit v1.2.3