notification server TRPL command (#420)

* notification server TRPL command

* test

* client methods

* only remove current token registration
This commit is contained in:
Evgeny Poberezkin
2022-06-23 08:35:33 +01:00
committed by GitHub
parent ef4d4c9e16
commit f10e3f697c
6 changed files with 59 additions and 1 deletions
@@ -42,6 +42,9 @@ ntfCheckToken c pKey tknId =
NRTkn stat -> pure stat
_ -> throwE PCEUnexpectedResponse
ntfReplaceToken :: NtfClient -> C.APrivateSignKey -> NtfTokenId -> DeviceToken -> ExceptT ProtocolClientError IO ()
ntfReplaceToken c pKey tknId token = okNtfCommand (TRPL token) c pKey tknId
ntfDeleteToken :: NtfClient -> C.APrivateSignKey -> NtfTokenId -> ExceptT ProtocolClientError IO ()
ntfDeleteToken = okNtfCommand TDEL