From e16a0bc9a3569f5a8f60c341dac133e345eacb52 Mon Sep 17 00:00:00 2001 From: Matthias Fischmann Date: Mon, 21 Jun 2021 16:00:25 +0200 Subject: [PATCH] Tweak detail. --- services/galley/src/Galley/API/Util.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/services/galley/src/Galley/API/Util.hs b/services/galley/src/Galley/API/Util.hs index a569aefaae3..44e482ebf56 100644 --- a/services/galley/src/Galley/API/Util.hs +++ b/services/galley/src/Galley/API/Util.hs @@ -407,9 +407,8 @@ allLegalholdConsentGiven uids = do -- For this feature the implementation is more efficient. Being part of -- a whitelisted team is equivalent to have given consent to be in a -- conversation with user under legalhold. - flip allM (chunksOf 32 uids) $ \uidsPage -> do - teamsPage <- nub . Map.elems <$> Data.usersTeams uidsPage - allM isTeamLegalholdWhitelisted teamsPage + tids <- forM (chunksOf 32 uids) $ \uidsPage -> Map.elems <$> Data.usersTeams uidsPage + allM isTeamLegalholdWhitelisted (nub $ mconcat tids) -- | Notify remote users of being added to a conversation updateRemoteConversationMemberships :: [RemoteMember] -> UserId -> UTCTime -> Data.Conversation -> [LocalMember] -> [RemoteMember] -> Galley ()