diff --git a/src/Simplex/Messaging/Agent/Store.hs b/src/Simplex/Messaging/Agent/Store.hs index 6931f53be..ec564ceb8 100644 --- a/src/Simplex/Messaging/Agent/Store.hs +++ b/src/Simplex/Messaging/Agent/Store.hs @@ -80,8 +80,7 @@ class Monad m => MonadAgentStore s m where -- Notification device token persistence createNtfToken :: s -> NtfToken -> m () - -- TODO this should also return old tokens so that they are deleted from the server - getDeviceNtfToken :: s -> DeviceToken -> m (Maybe NtfToken, [NtfToken]) -- return current token if it exists + getDeviceNtfToken :: s -> DeviceToken -> m (Maybe NtfToken, [NtfToken]) updateNtfTokenRegistration :: s -> NtfToken -> NtfTokenId -> C.DhSecretX25519 -> m () updateNtfToken :: s -> NtfToken -> NtfTknStatus -> Maybe NtfTknAction -> m () removeNtfToken :: s -> NtfToken -> m () diff --git a/src/Simplex/Messaging/Agent/Store/SQLite/Migrations/M20220404_ntf_subscriptions_draft.hs b/src/Simplex/Messaging/Agent/Store/SQLite/Migrations/M20220404_ntf_subscriptions_draft.hs index 5f58ca0fd..7ddedddd3 100644 --- a/src/Simplex/Messaging/Agent/Store/SQLite/Migrations/M20220404_ntf_subscriptions_draft.hs +++ b/src/Simplex/Messaging/Agent/Store/SQLite/Migrations/M20220404_ntf_subscriptions_draft.hs @@ -35,4 +35,4 @@ CREATE TABLE ntf_subscriptions ( FOREIGN KEY (smp_host, smp_port, smp_ntf_id) REFERENCES rcv_queues (host, port, ntf_id) ON DELETE RESTRICT ON UPDATE CASCADE ) WITHOUT ROWID; -|] \ No newline at end of file +|]