dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-04-25 12:02:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

ntf: fix TRPL to send verification to the new token (#456)

Browse Source
This commit is contained in:
Evgeny Poberezkin
2022-07-02 15:07:20 +01:00
committed by GitHub
parent 57d83ae42d
commit 2c52c514c0
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Simplex/Messaging/Notifications/Server.hs
View File

@@ -376,8 +376,9 @@ client NtfServerClient {rcvQ, sndQ} NtfSubscriber {newSubQ, smpAgent = ca} NtfPu
atomically $ do
removeTokenRegistration st tkn
writeTVar tknStatus NTRegistered
addNtfToken st tknId tkn {token = token', tknRegCode = regCode}
writeTBQueue pushQ (tkn, PNVerification regCode)
let tkn' = tkn {token = token', tknRegCode = regCode}
addNtfToken st tknId tkn'
writeTBQueue pushQ (tkn', PNVerification regCode)
withNtfLog $ \s -> logUpdateToken s tknId token' regCode
pure NROk
TDEL -> do