cli: require single quotes around names with commas (fixes names in bot parameters)

This commit is contained in:
Evgeny Poberezkin
2025-01-17 13:38:10 +00:00
parent d238a3c18f
commit 830838fc4c

View File

@@ -4045,7 +4045,7 @@ chatCommandP =
char_ = optional . A.char
displayNameP :: Parser Text
displayNameP = safeDecodeUtf8 <$> (quoted '\'' <|> takeNameTill isSpace)
displayNameP = safeDecodeUtf8 <$> (quoted '\'' <|> takeNameTill (\c -> isSpace c || c == ','))
where
takeNameTill p =
A.peekChar' >>= \c ->