option to auto-accept contact requests (#296)

This commit is contained in:
Efim Poberezkin
2022-02-14 14:59:11 +04:00
committed by GitHub
parent e90520a5ec
commit dc306dfcd0
6 changed files with 102 additions and 21 deletions
+2 -1
View File
@@ -51,7 +51,8 @@ responseToView cmd testView = \case
HSMarkdown -> r markdownInfo
CRWelcome user -> r $ chatWelcome user
CRContactsList cs -> r $ viewContactsList cs
CRUserContactLink cReq -> r $ connReqContact_ "Your chat address:" cReq
CRUserContactLink cReqUri _ -> r $ connReqContact_ "Your chat address:" cReqUri
CRUserContactLinkUpdated _ autoAccept -> r ["auto_accept " <> if autoAccept then "on" else "off"]
CRContactRequestRejected UserContactRequest {localDisplayName = c} -> r [ttyContact c <> ": contact request rejected"]
CRGroupCreated g -> r $ viewGroupCreated g
CRGroupMembers g -> r $ viewGroupMembers g