Add locale update to user subsystem

wireapp · May 14, 2024 · e0410f2 · e0410f2
1 parent 924dd98
commit e0410f2
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 12 deletions.
diff --git a/libs/wire-api/src/Wire/API/Routes/Public/Brig.hs b/libs/wire-api/src/Wire/API/Routes/Public/Brig.hs
@@ -409,7 +409,7 @@ type SelfAPI =
            "change-locale"
            ( Summary "Change your locale."
                :> MakesFederatedCall 'Brig "send-connection-action"
-               :> ZUser
+               :> ZLocalUser
                :> ZConn
                :> "self"
                :> "locale"

diff --git a/libs/wire-subsystems/src/Wire/UserStore.hs b/libs/wire-subsystems/src/Wire/UserStore.hs
@@ -16,7 +16,8 @@ data UserProfileUpdate = MkUserProfileUpdate
   { name :: Maybe Name,
     pict :: Maybe Pict,
     assets :: Maybe [Asset],
-    accentId :: Maybe ColourId
+    accentId :: Maybe ColourId,
+    locale :: Maybe Locale
   }
   deriving stock (Eq, Ord, Show, Generic)
   deriving (Arbitrary) via GenericUniform UserProfileUpdate
@@ -27,7 +28,8 @@ instance Default UserProfileUpdate where
       { name = Nothing,
         pict = Nothing,
         assets = Nothing,
-        accentId = Nothing
+        accentId = Nothing,
+        locale = Nothing
       }
 
 data UserStore m a where

diff --git a/services/brig/src/Brig/API/Public.hs b/services/brig/src/Brig/API/Public.hs
@@ -984,18 +984,18 @@ changePassword :: UserId -> Public.PasswordChange -> (Handler r) (Maybe Public.C
 changePassword u cp = lift . exceptTToMaybe $ API.changePassword u cp
 
 changeLocale ::
-  ( Member (Embed HttpClientIO) r,
-    Member NotificationSubsystem r,
-    Member TinyLog r,
-    Member (Input (Local ())) r,
-    Member (Input UTCTime) r,
-    Member (ConnectionStore InternalPaging) r
-  ) =>
-  UserId ->
+  Member UserSubsystem r =>
+  Local UserId ->
   ConnId ->
   Public.LocaleUpdate ->
   (Handler r) ()
-changeLocale u conn l = lift $ API.changeLocale u conn l
+changeLocale lusr conn l =
+  lift . liftSem $
+    updateUserProfile
+      lusr
+      (Just conn)
+      def {locale = Just l.luLocale}
+      ForbidSCIMUpdates
 
 changeSupportedProtocols ::
   ( Member (Embed HttpClientIO) r,