fix: ster get-meta-info (#3436)

changelog.d/3-bug-fixes/pr-3436

@@ -0,0 +1 @@
+`/i/user/meta-info` endpoint in backoffice/stern fixed

tools/stern/src/Stern/API.hs

@@ -395,13 +395,13 @@ getConsentLog e = do
     <$> Intra.getEmailConsentLog e
     <*> Intra.getMarketoResult e
 
-getUserData :: UserId -> Handler UserMetaInfo
-getUserData uid = do
+getUserData :: UserId -> Maybe Int -> Maybe Int -> Handler UserMetaInfo
+getUserData uid mMaxConvs mMaxNotifs = do
   account <- Intra.getUserProfiles (Left [uid]) >>= noSuchUser . listToMaybe
   conns <- Intra.getUserConnections uid
-  convs <- Intra.getUserConversations uid
+  convs <- Intra.getUserConversations uid <&> take (fromMaybe 1 mMaxConvs)
   clts <- Intra.getUserClients uid
-  notfs <- (Intra.getUserNotifications uid <&> toJSON @[QueuedNotification]) `catchE` (pure . String . cs . show)
+  notfs <- (Intra.getUserNotifications uid <&> take (fromMaybe 10 mMaxNotifs) <&> toJSON @[QueuedNotification]) `catchE` (pure . String . cs . show)
   consent <- (Intra.getUserConsentValue uid <&> toJSON @ConsentValue) `catchE` (pure . String . cs . show)
   consentLog <- (Intra.getUserConsentLog uid <&> toJSON @ConsentLog) `catchE` (pure . String . cs . show)
   cookies <- Intra.getUserCookies uid

tools/stern/src/Stern/API/Routes.hs

@@ -379,6 +379,8 @@ type SternAPI =
                :> "user"
                :> "meta-info"
                :> QueryParam' [Required, Strict, Description "A valid UserId"] "id" UserId
+               :> QueryParam' [Optional, Strict, Description "Max number of conversation (default 1)"] "max_conversations" Int
+               :> QueryParam' [Optional, Strict, Description "Max number of notifications (default 10)"] "max_notifications" Int
                :> Post '[JSON] UserMetaInfo
            )
     :<|> Named