diff --git a/src/Simplex/Messaging/Notifications/Protocol.hs b/src/Simplex/Messaging/Notifications/Protocol.hs index 3594c2bc7..2167814c1 100644 --- a/src/Simplex/Messaging/Notifications/Protocol.hs +++ b/src/Simplex/Messaging/Notifications/Protocol.hs @@ -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)