ntf server: fix repeat token registration when it became invalid (regression) (#1539)

This commit is contained in:
Evgeny
2025-05-15 19:56:48 +01:00
committed by GitHub
parent cf4b9f669d
commit b90e25a3a5
3 changed files with 27 additions and 10 deletions
@@ -536,6 +536,15 @@ data NtfTknStatus
NTExpired
deriving (Eq, Show)
allowTokenVerification :: NtfTknStatus -> Bool
allowTokenVerification = \case
NTNew -> False
NTRegistered -> True
NTInvalid _ -> False
NTConfirmed -> True
NTActive -> True
NTExpired -> False
allowNtfSubCommands :: NtfTknStatus -> Bool
allowNtfSubCommands = \case
NTNew -> False