fix: comment

Author: blackheaven

services/galley/src/Galley/API/Internal.hs

@@ -32,9 +32,9 @@ import Data.Default
 import Data.Id as Id
 import Data.Json.Util (ToJSONObject (toJSONObject))
 import Data.Map qualified as Map
+import Data.Set qualified as Set
 import Data.Qualified
 import Data.Range
-import Data.Set qualified as Set
 import Data.Singletons
 import Data.Time
 import Galley.API.Action
@@ -348,10 +348,10 @@ rmUser ::
 rmUser lusr conn = do
   let fetchTids acc page =
         if null (pageItems page)
-          then pure acc
-          else do
-            page' <- listTeams @p2 (tUnqualified lusr) (Just (pageState page)) maxBound
-            fetchTids (pageItems page <> acc) page'
+        then pure acc
+        else do
+          page' <- listTeams @p2 (tUnqualified lusr) (Just (pageState page)) maxBound
+          fetchTids (pageItems page <> acc) page'
 
   tids <- fetchTids [] =<< listTeams (tUnqualified lusr) Nothing maxBound
   leaveTeams lusr conn tids
@@ -397,11 +397,6 @@ leaveTeams lusr conn tids = do
             . (.status)
     uncheckedDeleteTeamMember lusr conn tid (tUnqualified lusr) toNotify
 
-  -- let qUser = tUntagged lusr
-  -- now <- Now.get
-  -- convs <- getConversations leftConversations.leave
-  -- pushNotifications =<< mapM (notifyRemoteMembersAndPrepareLocalMembersLeft now qUser) convs
-
   allConvIds <- Query.conversationIdsPageFrom lusr (GetPaginatedConversationIds Nothing nRange1000)
   goConvPages (Set.fromList $ leavingConversations.leave <> leavingConversations.close) nRange1000 allConvIds