Fix more linting

wireapp · Jan 15, 2024 · e030a6e · e030a6e
1 parent d272978
commit e030a6e
Showing 1 changed file with 19 additions and 13 deletions.
diff --git a/services/galley/src/Galley/API/Teams.hs b/services/galley/src/Galley/API/Teams.hs
@@ -987,22 +987,28 @@ deleteTeamMember' lusr zcon tid remove mBody = do
               else sizeBeforeDelete - 1
       E.deleteUser remove
       toNotify <-
-        getFeatureStatus @LimitedEventFanoutConfig DontDoAuth tid >>= (\case
-          FeatureStatusEnabled -> E.getBillingTeamMembers tid
-          FeatureStatusDisabled -> do
-            let filterFromMembers list =
-                  view userId <$> filter (`hasPermission` SetBilling) (list ^. teamMembers)
-            filterFromMembers <$> getTeamMembersForFanout tid) . wsStatus
+        getFeatureStatus @LimitedEventFanoutConfig DontDoAuth tid
+          >>= ( \case
+                  FeatureStatusEnabled -> E.getBillingTeamMembers tid
+                  FeatureStatusDisabled -> do
+                    let filterFromMembers list =
+                          view userId <$> filter (`hasPermission` SetBilling) (list ^. teamMembers)
+                    filterFromMembers <$> getTeamMembersForFanout tid
+              )
+            . wsStatus
       Journal.teamUpdate tid sizeAfterDelete $ filter (/= remove) toNotify
       pure TeamMemberDeleteAccepted
     else do
-      getFeatureStatus @LimitedEventFanoutConfig DontDoAuth tid >>= (\case
-        FeatureStatusEnabled -> do
-          admins <- E.getTeamAdmins tid
-          uncheckedDeleteTeamMember lusr (Just zcon) tid remove (Left admins)
-        FeatureStatusDisabled -> do
-          mems <- getTeamMembersForFanout tid
-          uncheckedDeleteTeamMember lusr (Just zcon) tid remove (Right mems)) . wsStatus
+      getFeatureStatus @LimitedEventFanoutConfig DontDoAuth tid
+        >>= ( \case
+                FeatureStatusEnabled -> do
+                  admins <- E.getTeamAdmins tid
+                  uncheckedDeleteTeamMember lusr (Just zcon) tid remove (Left admins)
+                FeatureStatusDisabled -> do
+                  mems <- getTeamMembersForFanout tid
+                  uncheckedDeleteTeamMember lusr (Just zcon) tid remove (Right mems)
+            )
+          . wsStatus
       pure TeamMemberDeleteCompleted
 
 -- This function is "unchecked" because it does not validate that the user has the `RemoveTeamMember` permission.