core: allow quoted strings (with spaces) in network interface of remote hosts (#3592)

This commit is contained in:
Evgeny Poberezkin
2023-12-28 10:06:49 +00:00
committed by GitHub
parent 07334b057d
commit b4dd6941d7
3 changed files with 3 additions and 3 deletions
+1 -1
View File
@@ -6543,7 +6543,7 @@ chatCommandP =
(pure Nothing)
srvCfgP = strP >>= \case AProtocolType p -> APSC p <$> (A.space *> jsonP)
toServerCfg server = ServerCfg {server, preset = False, tested = Nothing, enabled = True}
rcCtrlAddressP = RCCtrlAddress <$> ("addr=" *> strP) <*> (" iface=" *> text1P)
rcCtrlAddressP = RCCtrlAddress <$> ("addr=" *> strP) <*> (" iface=" *> (jsonP <|> text1P))
text1P = safeDecodeUtf8 <$> A.takeTill (== ' ')
char_ = optional . A.char