dandri/simplex-chat
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-05-25 22:54:29 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add commands to verify and deleted saved ntf token

Browse Source
This commit is contained in:
sim
2025-08-05 15:39:32 +02:00
parent 5a311609d1
commit 6ab0f3222a
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Controller.hs
+2
View File
@@ -353,8 +353,10 @@ data ChatCommand
| APIGetNtfToken
| APIRegisterToken DeviceToken NotificationsMode
| APIVerifyToken DeviceToken C.CbNonce ByteString
| APIVerifySavedToken ByteString
| APICheckToken DeviceToken
| APIDeleteToken DeviceToken
| APIDeleteSavedToken
| APIGetNtfConns {nonce :: C.CbNonce, encNtfInfo :: ByteString}
| APIGetConnNtfMessages (NonEmpty ConnMsgReq)
| APIAddMember GroupId ContactId GroupMemberRole
src/Simplex/Chat/Library/Commands.hs
+4
View File
@@ -1309,9 +1309,11 @@ processChatCommand' vr = \case
APIRegisterToken token mode -> withUser' $ \_u@User {userId} ->
CRNtfTokenStatus <$> withAgent (\a -> registerNtfToken a userId token mode)
APIVerifyToken token nonce code -> withUser $ \_u@User {userId} -> withAgent (\a -> verifyNtfToken a userId token nonce code) >> ok_
APIVerifySavedToken code -> withUser $ \_u@User {userId} -> withAgent (\a -> verifySavedNtfToken a userId code) >> ok_
APICheckToken token -> withUser $ \_ ->
CRNtfTokenStatus <$> withAgent (`checkNtfToken` token)
APIDeleteToken token -> withUser $ \_ -> withAgent (`deleteNtfToken` token) >> ok_
APIDeleteSavedToken -> withUser $ \_ -> withAgent deleteSavedNtfToken >> ok_
APIGetNtfConns nonce encNtfInfo -> withUser $ \_ -> do
ntfInfos <- withAgent $ \a -> getNotificationConns a nonce encNtfInfo
(errs, ntfMsgs) <- lift $ partitionEithers <$> withStoreBatch' (\db -> map (getMsgConn db) (L.toList ntfInfos))
@@ -4109,8 +4111,10 @@ chatCommandP =
"/_ntf get" $> APIGetNtfToken,
"/_ntf register " *> (APIRegisterToken <$> strP_ <*> strP),
"/_ntf verify " *> (APIVerifyToken <$> strP <* A.space <*> strP <* A.space <*> strP),
"/_ntf verify " *> (APIVerifySavedToken <$> strP),
"/_ntf check " *> (APICheckToken <$> strP),
"/_ntf delete " *> (APIDeleteToken <$> strP),
"/_ntf delete saved" $> APIDeleteSavedToken,
"/_ntf conns " *> (APIGetNtfConns <$> strP <* A.space <*> strP),
"/_ntf conn messages " *> (APIGetConnNtfMessages <$> connMsgsP),
"/_add #" *> (APIAddMember <$> A.decimal <* A.space <*> A.decimal <*> memberRole),