Better effect action name.

Co-authored-by: Copilot Autofix powered by AI <175728472+Copilot@users.noreply.github.com>

Author: fisx

libs/wire-subsystems/src/Wire/AuthenticationSubsystem.hs

@@ -78,7 +78,7 @@ data AuthenticationSubsystem m a where
     SameLabelPolicy ->
     AuthenticationSubsystem m (Either RetryAfter (Cookie (ZAuth.Token t)))
   RevokeCookies :: UserId -> [CookieId] -> [CookieLabel] -> AuthenticationSubsystem m ()
-  RevokeAllExpiredCookies :: UserId -> AuthenticationSubsystem m ()
+  RevokeAllStaleCookies :: UserId -> AuthenticationSubsystem m ()
   -- Verification Codes
   EnforceVerificationCodeEither :: Local UserId -> Maybe Code.Value -> VerificationAction -> AuthenticationSubsystem m (Either VerificationCodeError ())
   -- For testing

libs/wire-subsystems/src/Wire/AuthenticationSubsystem/Cookie.hs

@@ -148,14 +148,14 @@ revokeCookiesMatchingExcept u mself ids labels = do
 -- Remove stale cookies.  Stale means either (1) cookie is expired, or
 -- (2) cookie creation time is further in the past than
 -- `env.suspendInactiveUsers` allows.
-revokeAllExpiredCookiesImpl ::
+revokeAllStaleCookiesImpl ::
   ( Member SessionStore r,
     Member (Input AuthenticationSubsystemConfig) r,
     Member Now r
   ) =>
   UserId ->
   Sem r ()
-revokeAllExpiredCookiesImpl uid = do
+revokeAllStaleCookiesImpl uid = do
   now :: UTCTime <- Now.get
   mbSuspendAge <- (.suspendInactiveUsers) <$> input
 

libs/wire-subsystems/src/Wire/AuthenticationSubsystem/Interpreter.hs

@@ -107,7 +107,7 @@ interpretAuthenticationSubsystem userSubsystemInterpreter =
         NewCookie uid mcid typ mLabel policy -> newCookieImpl uid mcid typ mLabel policy
         NewCookieLimited uid mcid typ mLabel policy -> runError $ newCookieLimitedImpl uid mcid typ mLabel policy
         RevokeCookies uid ids labels -> revokeCookiesImpl uid ids labels
-        RevokeAllExpiredCookies uid -> revokeAllExpiredCookiesImpl uid
+        RevokeAllStaleCookies uid -> revokeAllStaleCookiesImpl uid
         -- Verification Codes
         EnforceVerificationCodeEither luid mCode action -> runError $ enforceVerificationCodeImpl luid mCode action
         -- Testing

services/brig/src/Brig/API/User.hs

@@ -679,7 +679,7 @@ changeSingleAccountStatusInternal status ev u = do
   -- considered an account activity, so users that have their status
   -- changed recently should not be considered inactive, even if they
   -- haven't taken any action themselves.
-  Auth.revokeAllExpiredCookies u
+  Auth.revokeAllStaleCookies u
   UserStore.updateAccountStatus u status
   User.internalUpdateSearchIndex u
   Events.generateUserEvent u Nothing (ev u)