From 6ab0f3222a1ac9d1e1b61b56aaae87aa61afdac2 Mon Sep 17 00:00:00 2001
From: sim <git@sgougeon.fr>
Date: Tue, 5 Aug 2025 15:39:32 +0200
Subject: [PATCH] Add commands to verify and deleted saved ntf token

---
 src/Simplex/Chat/Controller.hs       | 2 ++
 src/Simplex/Chat/Library/Commands.hs | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/src/Simplex/Chat/Controller.hs b/src/Simplex/Chat/Controller.hs
index aff6b3f6dc..5a3d7a2a59 100644
--- a/src/Simplex/Chat/Controller.hs
+++ b/src/Simplex/Chat/Controller.hs
@@ -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
diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs
index 8e5a7dc8e0..3e6673a37c 100644
--- a/src/Simplex/Chat/Library/Commands.hs
+++ b/src/Simplex/Chat/Library/Commands.hs
@@ -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),