diff --git a/changelog.d/5-internal/rm-unused-remote-conv-list-store-effect b/changelog.d/5-internal/rm-unused-remote-conv-list-store-effect new file mode 100644 index 00000000000..eb2d1ade2c9 --- /dev/null +++ b/changelog.d/5-internal/rm-unused-remote-conv-list-store-effect @@ -0,0 +1 @@ +Remove an unused effect for remote conversation listing diff --git a/services/galley/galley.cabal b/services/galley/galley.cabal index 69cb4423385..0c1cac4e69f 100644 --- a/services/galley/galley.cabal +++ b/services/galley/galley.cabal @@ -104,7 +104,6 @@ library Galley.Effects.MemberStore Galley.Effects.ProposalStore Galley.Effects.Queue - Galley.Effects.RemoteConversationListStore Galley.Effects.SearchVisibilityStore Galley.Effects.ServiceStore Galley.Effects.SparAccess diff --git a/services/galley/src/Galley/Effects/RemoteConversationListStore.hs b/services/galley/src/Galley/Effects/RemoteConversationListStore.hs deleted file mode 100644 index 54a076818ab..00000000000 --- a/services/galley/src/Galley/Effects/RemoteConversationListStore.hs +++ /dev/null @@ -1,45 +0,0 @@ -{-# LANGUAGE TemplateHaskell #-} - --- This file is part of the Wire Server implementation. --- --- Copyright (C) 2022 Wire Swiss GmbH --- --- This program is free software: you can redistribute it and/or modify it under --- the terms of the GNU Affero General Public License as published by the Free --- Software Foundation, either version 3 of the License, or (at your option) any --- later version. --- --- This program is distributed in the hope that it will be useful, but WITHOUT --- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS --- FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more --- details. --- --- You should have received a copy of the GNU Affero General Public License along --- with this program. If not, see . - -module Galley.Effects.RemoteConversationListStore - ( RemoteConversationListStore (..), - listRemoteConversations, - getRemoteConversationStatus, - ) -where - -import Data.Id -import Data.Qualified -import Galley.Types.Conversations.Members -import Imports -import Polysemy -import Wire.Sem.Paging - -data RemoteConversationListStore p m a where - ListRemoteConversations :: - UserId -> - Maybe (PagingState p (Remote ConvId)) -> - Int32 -> - RemoteConversationListStore p m (Page p (Remote ConvId)) - GetRemoteConversationStatus :: - UserId -> - [Remote ConvId] -> - RemoteConversationListStore p m (Map (Remote ConvId) MemberStatus) - -makeSem ''RemoteConversationListStore