ntf server: fix store log parser for token status

2026-08-28 07:14:59 +00:00 · 2025-04-16 13:01:14 +01:00
parent 305f79d2a6
commit d11be15295
1 changed files with 1 additions and 1 deletions
@@ -543,7 +543,7 @@ instance Encoding NtfTknStatus where
    NTActive -> "ACTIVE"
    NTExpired -> "EXPIRED"
  smpP =
-    A.takeTill (== ' ') >>= \case
+    A.takeTill (\c -> c == ' ' || c == ',') >>= \case
      "NEW" -> pure NTNew
      "REGISTERED" -> pure NTRegistered
      "INVALID" -> NTInvalid <$> optional (A.char ',' *> strP)