diff --git a/src/Simplex/Chat/View.hs b/src/Simplex/Chat/View.hs index cdc9c7660f..b4a7537c19 100644 --- a/src/Simplex/Chat/View.hs +++ b/src/Simplex/Chat/View.hs @@ -588,13 +588,14 @@ viewUsersList us = in if null ss then ["no users"] else ss where ldn (UserInfo User {localDisplayName = n} _) = T.toLower n - userInfo (UserInfo User {localDisplayName = n, profile = LocalProfile {fullName, shortDescr, peerType}, activeUser, showNtfs, viewPwdHash} count) + userInfo (UserInfo User {localDisplayName = n, profile = LocalProfile {fullName, shortDescr, peerType}, activeUser, showNtfs, viewPwdHash, clientService} count) | activeUser || isNothing viewPwdHash = Just $ ttyFullName n fullName shortDescr <> infoStr <> bot | otherwise = Nothing where infoStr = if null info then "" else " (" <> mconcat (intersperse ", " info) <> ")" info = [highlight' "active" | activeUser] + <> [highlight' "service" | isTrue clientService] <> [highlight' "hidden" | isJust viewPwdHash] <> ["muted" | not showNtfs] <> [plain ("unread: " <> show count) | count /= 0] diff --git a/tests/ChatTests/Profiles.hs b/tests/ChatTests/Profiles.hs index b98ad91d72..000a639d5f 100644 --- a/tests/ChatTests/Profiles.hs +++ b/tests/ChatTests/Profiles.hs @@ -4201,6 +4201,8 @@ testClientService ps = alice <##> service service ##> "/set client service 1:service_user off" service <## "error: chat not stopped" + service ##> "/users" + service <## "service_user (Service user) (active, service)" -- connect as service withTestChat ps "service" $ \service -> do subscribeClientService service 1