From 830838fc4c19ed2e8415e686d7547f52114db749 Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <evgeny@poberezkin.com>
Date: Fri, 17 Jan 2025 13:38:10 +0000
Subject: [PATCH] cli: require single quotes around names with commas (fixes
 names in bot parameters)

---
 src/Simplex/Chat/Library/Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Simplex/Chat/Library/Commands.hs b/src/Simplex/Chat/Library/Commands.hs
index 548bcc3645..bc89d3684f 100644
--- a/src/Simplex/Chat/Library/Commands.hs
+++ b/src/Simplex/Chat/Library/Commands.hs
@@ -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 ->