Tweak detail.

wireapp · Jun 21, 2021 · e16a0bc · e16a0bc
1 parent dde06ab
commit e16a0bc
Showing 1 changed file with 2 additions and 3 deletions.
diff --git 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 ()